;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%DLASWP %DLASWP %%DLASY2 %DLASY2 %%DLASYF %DLASYF
  %%DLASYF_AA %DLASYF_AA %%DLASYF_RK %DLASYF_RK %%DLASYF_ROOK %DLASYF_ROOK
  %%DLAT2S %DLAT2S %%DLATBS %DLATBS %%DLATDF %DLATDF %%DLATPS %DLATPS %%DLATRD
  %DLATRD %%DLATRS %DLATRS %%DLATRZ %DLATRZ %%DLATSQR %DLATSQR %%DLAUU2 %DLAUU2
  %%DLAUUM %DLAUUM %%DOPGTR %DOPGTR %%DOPMTR %DOPMTR %%DORBDB %DORBDB %%DORBDB1
  %DORBDB1 %%DORBDB2 %DORBDB2 %%DORBDB3 %DORBDB3 %%DORBDB4 %DORBDB4 %%DORBDB5
  %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1
  %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2
  %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2
  %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORGTSQR %DORGTSQR %%DORHR_COL %DORHR_COL
  %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R %DORM2R %%DORMBR %DORMBR %%DORMHR
  %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ %%DORMQL %DORMQL %%DORMQR %DORMQR
  %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ %DORMRQ %%DORMRZ %DORMRZ %%DORMTR
  %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF
  %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS
  %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI %%DPFTRS %DPFTRS %%DPOCON %DPOCON
  %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB %%DPORFS %DPORFS %%DPORFSX %DPORFSX
  %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF
  %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON
  %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF
  %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF
  %%DPTCON %DPTCON %%DPTEQR %DPTEQR %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX
  %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL
  %%DSB2ST_KERNELS %DSB2ST_KERNELS %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE
  %%DSBEVD %DSBEVD %%DSBEVD_2STAGE %DSBEVD_2STAGE %%DSBEVX %DSBEVX
  %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST %DSBGST %%DSBGV %DSBGV %%DSBGVD
  %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD %%DSFRK %DSFRK %%DSGESV %DSGESV
  %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD %DSPEVD %%DSPEVX %DSPEVX %%DSPGST
  %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV
  %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF
  %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC
  %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR %DSTEMR %%DSTEQR %DSTEQR %%DSTERF
  %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX
  %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV
  %DSYCONV %%DSYCONVF %DSYCONVF %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB
  %DSYEQUB %%DSYEV %DSYEV %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD
  %%DSYEVD_2STAGE %DSYEVD_2STAGE %%DSYEVR %DSYEVR %%DSYEVR_2STAGE
  %DSYEVR_2STAGE %%DSYEVX %DSYEVX %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2
  %DSYGS2 %%DSYGST %DSYGST %%DSYGV %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD
  %DSYGVD %%DSYGVX %DSYGVX %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV
  %%DSYSV_AA %DSYSV_AA %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK
  %%DSYSV_ROOK %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR
  %DSYSWAPR %%DSYTD2 %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK
  %%DSYTF2_ROOK %DSYTF2_ROOK %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE
  %%DSYTRD_SY2SB %DSYTRD_SY2SB %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA
  %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK
  %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 %DSYTRI2 %%DSYTRI2X %DSYTRI2X
  %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X %%DSYTRI_ROOK %DSYTRI_ROOK
  %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 %DSYTRS_3 %%DSYTRS_AA
  %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE %%DSYTRS_ROOK %DSYTRS_ROOK
  %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS %%DTFSM %DTFSM %%DTFTRI
  %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC %DTGEVC %%DTGEX2 %DTGEX2
  %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA %%DTGSNA %DTGSNA %%DTGSY2
  %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT %DTPLQT %%DTPLQT2 %DTPLQT2
  %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT %DTPQRT %%DTPQRT2 %DTPQRT2
  %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI %%DTPTRS %DTPTRS %%DTPTTF
  %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC %DTREVC %%DTREVC3 %DTREVC3
  %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN %%DTRSNA %DTRSNA %%DTRSYL
  %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS %DTRTRS %%DTRTTF %DTRTTF
  %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 %%ICMAX1 %ICMAX1 %%IEEECK
  %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG %ILADIAG %%ILADLC %ILADLC
  %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE %ILAENV2STAGE %%ILAPREC
  %ILAPREC %%ILASLC %ILASLC))

(CFFI:DEFCFUN ("dlaswp_" %%DLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8840 ':INT32) (LDA-REF8842 ':INT32)
                              (K1-REF8843 ':INT32) (K2-REF8844 ':INT32)
                              (INCX-REF8846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8842 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF8843 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF8844 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8846 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8841 A) (IPIV-REF8845 IPIV))
      (%%DLASWP N-REF8840 A-REF8841 LDA-REF8842 K1-REF8843 K2-REF8844
       IPIV-REF8845 INCX-REF8846))))

(CFFI:DEFCFUN ("dlasy2_" %%DLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRANL :POINTER)
  (LTRANR :POINTER)
  (ISGN :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (TL :POINTER)
  (LDTL :POINTER)
  (TR :POINTER)
  (LDTR :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASY2
                   (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASY2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF8847 ':INT32) (LTRANR-REF8848 ':INT32)
                              (ISGN-REF8849 ':INT32) (N1-REF8850 ':INT32)
                              (N2-REF8851 ':INT32) (LDTL-REF8853 ':INT32)
                              (LDTR-REF8855 ':INT32) (LDB-REF8857 ':INT32)
                              (SCALE-REF8858 ':DOUBLE) (LDX-REF8860 ':INT32)
                              (XNORM-REF8861 ':DOUBLE) (INFO-REF8862 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF8847 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF8848 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF8849 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF8850 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF8851 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF8853 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF8855 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8857 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8858 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8860 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF8861 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8862 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF8852 TL) (TR-REF8854 TR)
                                            (B-REF8856 B) (X-REF8859 X))
      (%%DLASY2 LTRANL-REF8847 LTRANR-REF8848 ISGN-REF8849 N1-REF8850
       N2-REF8851 TL-REF8852 LDTL-REF8853 TR-REF8854 LDTR-REF8855 B-REF8856
       LDB-REF8857 SCALE-REF8858 X-REF8859 LDX-REF8860 XNORM-REF8861
       INFO-REF8862))))

(CFFI:DEFCFUN ("dlasyf_" %%DLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8864 ':INT32) (NB-REF8865 ':INT32)
                              (KB-REF8866 ':INT32) (LDA-REF8868 ':INT32)
                              (LDW-REF8871 ':INT32) (INFO-REF8872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8864 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8865 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8866 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8868 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8871 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8872 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8867 A) (IPIV-REF8869 IPIV)
                                            (W-REF8870 W))
      (%%DLASYF UPLO N-REF8864 NB-REF8865 KB-REF8866 A-REF8867 LDA-REF8868
       IPIV-REF8869 W-REF8870 LDW-REF8871 INFO-REF8872))))

(CFFI:DEFCFUN ("dlasyf_aa_" %%DLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF8874 ':INT32) (M-REF8875 ':INT32)
                              (NB-REF8876 ':INT32) (LDA-REF8878 ':INT32)
                              (LDH-REF8881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF8874 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8875 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8876 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8878 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8881 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8877 A) (IPIV-REF8879 IPIV)
                                            (H-REF8880 H) (WORK-REF8882 WORK))
      (%%DLASYF_AA UPLO J1-REF8874 M-REF8875 NB-REF8876 A-REF8877 LDA-REF8878
       IPIV-REF8879 H-REF8880 LDH-REF8881 WORK-REF8882))))

(CFFI:DEFCFUN ("dlasyf_rk_" %%DLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8884 ':INT32) (NB-REF8885 ':INT32)
                              (KB-REF8886 ':INT32) (LDA-REF8888 ':INT32)
                              (LDW-REF8892 ':INT32) (INFO-REF8893 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8885 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8886 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8888 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8892 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8893 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8887 A) (E-REF8889 E)
                                            (IPIV-REF8890 IPIV) (W-REF8891 W))
      (%%DLASYF_RK UPLO N-REF8884 NB-REF8885 KB-REF8886 A-REF8887 LDA-REF8888
       E-REF8889 IPIV-REF8890 W-REF8891 LDW-REF8892 INFO-REF8893))))

(CFFI:DEFCFUN ("dlasyf_rook_" %%DLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8895 ':INT32) (NB-REF8896 ':INT32)
                              (KB-REF8897 ':INT32) (LDA-REF8899 ':INT32)
                              (LDW-REF8902 ':INT32) (INFO-REF8903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8896 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8897 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8902 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8898 A) (IPIV-REF8900 IPIV)
                                            (W-REF8901 W))
      (%%DLASYF_ROOK UPLO N-REF8895 NB-REF8896 KB-REF8897 A-REF8898 LDA-REF8899
       IPIV-REF8900 W-REF8901 LDW-REF8902 INFO-REF8903))))

(CFFI:DEFCFUN ("dlat2s_" %%DLAT2S :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAT2S (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAT2S)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8905 ':INT32) (LDA-REF8907 ':INT32)
                              (LDSA-REF8909 ':INT32) (INFO-REF8910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8905 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8907 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF8909 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8906 A) (SA-REF8908 SA))
      (%%DLAT2S UPLO N-REF8905 A-REF8906 LDA-REF8907 SA-REF8908 LDSA-REF8909
       INFO-REF8910))))

(CFFI:DEFCFUN ("dlatbs_" %%DLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8915 ':INT32) (KD-REF8916 ':INT32)
                              (LDAB-REF8918 ':INT32) (SCALE-REF8920 ':DOUBLE)
                              (INFO-REF8922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8916 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8918 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8920 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8922 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8917 AB) (X-REF8919 X)
                                            (CNORM-REF8921 CNORM))
      (%%DLATBS UPLO TRANS DIAG NORMIN N-REF8915 KD-REF8916 AB-REF8917
       LDAB-REF8918 X-REF8919 SCALE-REF8920 CNORM-REF8921 INFO-REF8922))))

(CFFI:DEFCFUN ("dlatdf_" %%DLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %DLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF8923 ':INT32) (N-REF8924 ':INT32)
                              (LDZ-REF8926 ':INT32) (RDSUM-REF8928 ':DOUBLE)
                              (RDSCAL-REF8929 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF8923 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8924 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8926 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF8928 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF8929 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8925 Z) (RHS-REF8927 RHS)
                                            (IPIV-REF8930 IPIV)
                                            (JPIV-REF8931 JPIV))
      (%%DLATDF IJOB-REF8923 N-REF8924 Z-REF8925 LDZ-REF8926 RHS-REF8927
       RDSUM-REF8928 RDSCAL-REF8929 IPIV-REF8930 JPIV-REF8931))))

(CFFI:DEFCFUN ("dlatps_" %%DLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8936 ':INT32) (SCALE-REF8939 ':DOUBLE)
                              (INFO-REF8941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8939 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8941 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8937 AP) (X-REF8938 X)
                                            (CNORM-REF8940 CNORM))
      (%%DLATPS UPLO TRANS DIAG NORMIN N-REF8936 AP-REF8937 X-REF8938
       SCALE-REF8939 CNORM-REF8940 INFO-REF8941))))

(CFFI:DEFCFUN ("dlatrd_" %%DLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %DLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8943 ':INT32) (NB-REF8944 ':INT32)
                              (LDA-REF8946 ':INT32) (LDW-REF8950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8944 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8946 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8950 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8945 A) (E-REF8947 E)
                                            (TAU-REF8948 TAU) (W-REF8949 W))
      (%%DLATRD UPLO N-REF8943 NB-REF8944 A-REF8945 LDA-REF8946 E-REF8947
       TAU-REF8948 W-REF8949 LDW-REF8950))))

(CFFI:DEFCFUN ("dlatrs_" %%DLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8955 ':INT32) (LDA-REF8957 ':INT32)
                              (SCALE-REF8959 ':DOUBLE) (INFO-REF8961 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8955 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8957 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8959 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8961 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8956 A) (X-REF8958 X)
                                            (CNORM-REF8960 CNORM))
      (%%DLATRS UPLO TRANS DIAG NORMIN N-REF8955 A-REF8956 LDA-REF8957
       X-REF8958 SCALE-REF8959 CNORM-REF8960 INFO-REF8961))))

(CFFI:DEFCFUN ("dlatrz_" %%DLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8962 ':INT32) (N-REF8963 ':INT32)
                              (L-REF8964 ':INT32) (LDA-REF8966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8962 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8963 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8964 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8966 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8965 A) (TAU-REF8967 TAU)
                                            (WORK-REF8968 WORK))
      (%%DLATRZ M-REF8962 N-REF8963 L-REF8964 A-REF8965 LDA-REF8966 TAU-REF8967
       WORK-REF8968))))

(CFFI:DEFCFUN ("dlatsqr_" %%DLATSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8969 ':INT32) (N-REF8970 ':INT32)
                              (MB-REF8971 ':INT32) (NB-REF8972 ':INT32)
                              (LDA-REF8974 ':INT32) (LDT-REF8976 ':INT32)
                              (LWORK-REF8978 ':INT32) (INFO-REF8979 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8969 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8970 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8971 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8972 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8974 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8976 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8978 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8979 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8973 A) (T-REF8975 T)
                                            (WORK-REF8977 WORK))
      (%%DLATSQR M-REF8969 N-REF8970 MB-REF8971 NB-REF8972 A-REF8973
       LDA-REF8974 T-REF8975 LDT-REF8976 WORK-REF8977 LWORK-REF8978
       INFO-REF8979))))

(CFFI:DEFCFUN ("dlauu2_" %%DLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8981 ':INT32) (LDA-REF8983 ':INT32)
                              (INFO-REF8984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8982 A))
      (%%DLAUU2 UPLO N-REF8981 A-REF8982 LDA-REF8983 INFO-REF8984))))

(CFFI:DEFCFUN ("dlauum_" %%DLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8986 ':INT32) (LDA-REF8988 ':INT32)
                              (INFO-REF8989 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8988 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8989 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8987 A))
      (%%DLAUUM UPLO N-REF8986 A-REF8987 LDA-REF8988 INFO-REF8989))))

(CFFI:DEFCFUN ("dopgtr_" %%DOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8991 ':INT32) (LDQ-REF8995 ':INT32)
                              (INFO-REF8997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8995 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8992 AP) (TAU-REF8993 TAU)
                                            (Q-REF8994 Q) (WORK-REF8996 WORK))
      (%%DOPGTR UPLO N-REF8991 AP-REF8992 TAU-REF8993 Q-REF8994 LDQ-REF8995
       WORK-REF8996 INFO-REF8997))))

(CFFI:DEFCFUN ("dopmtr_" %%DOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9001 ':INT32) (N-REF9002 ':INT32)
                              (LDC-REF9006 ':INT32) (INFO-REF9008 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9001 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9002 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9006 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9008 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9003 AP) (TAU-REF9004 TAU)
                                            (C-REF9005 C) (WORK-REF9007 WORK))
      (%%DOPMTR SIDE UPLO TRANS M-REF9001 N-REF9002 AP-REF9003 TAU-REF9004
       C-REF9005 LDC-REF9006 WORK-REF9007 INFO-REF9008))))

(CFFI:DEFCFUN ("dorbdb_" %%DORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9011 ':INT32) (P-REF9012 ':INT32)
                              (Q-REF9013 ':INT32) (LDX11-REF9015 ':INT32)
                              (LDX12-REF9017 ':INT32) (LDX21-REF9019 ':INT32)
                              (LDX22-REF9021 ':INT32) (LWORK-REF9029 ':INT32)
                              (INFO-REF9030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9011 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9012 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9013 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9015 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9017 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9019 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9021 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9029 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9030 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9014 X11) (X12-REF9016 X12)
                                            (X21-REF9018 X21) (X22-REF9020 X22)
                                            (THETA-REF9022 THETA)
                                            (PHI-REF9023 PHI)
                                            (TAUP1-REF9024 TAUP1)
                                            (TAUP2-REF9025 TAUP2)
                                            (TAUQ1-REF9026 TAUQ1)
                                            (TAUQ2-REF9027 TAUQ2)
                                            (WORK-REF9028 WORK))
      (%%DORBDB TRANS SIGNS M-REF9011 P-REF9012 Q-REF9013 X11-REF9014
       LDX11-REF9015 X12-REF9016 LDX12-REF9017 X21-REF9018 LDX21-REF9019
       X22-REF9020 LDX22-REF9021 THETA-REF9022 PHI-REF9023 TAUP1-REF9024
       TAUP2-REF9025 TAUQ1-REF9026 TAUQ2-REF9027 WORK-REF9028 LWORK-REF9029
       INFO-REF9030))))

(CFFI:DEFCFUN ("dorbdb1_" %%DORBDB1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9031 ':INT32) (P-REF9032 ':INT32)
                              (Q-REF9033 ':INT32) (LDX11-REF9035 ':INT32)
                              (LDX21-REF9037 ':INT32) (LWORK-REF9044 ':INT32)
                              (INFO-REF9045 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9031 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9032 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9033 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9035 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9037 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9044 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9045 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9034 X11) (X21-REF9036 X21)
                                            (THETA-REF9038 THETA)
                                            (PHI-REF9039 PHI)
                                            (TAUP1-REF9040 TAUP1)
                                            (TAUP2-REF9041 TAUP2)
                                            (TAUQ1-REF9042 TAUQ1)
                                            (WORK-REF9043 WORK))
      (%%DORBDB1 M-REF9031 P-REF9032 Q-REF9033 X11-REF9034 LDX11-REF9035
       X21-REF9036 LDX21-REF9037 THETA-REF9038 PHI-REF9039 TAUP1-REF9040
       TAUP2-REF9041 TAUQ1-REF9042 WORK-REF9043 LWORK-REF9044 INFO-REF9045))))

(CFFI:DEFCFUN ("dorbdb2_" %%DORBDB2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9046 ':INT32) (P-REF9047 ':INT32)
                              (Q-REF9048 ':INT32) (LDX11-REF9050 ':INT32)
                              (LDX21-REF9052 ':INT32) (LWORK-REF9059 ':INT32)
                              (INFO-REF9060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9046 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9047 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9048 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9050 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9052 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9059 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9049 X11) (X21-REF9051 X21)
                                            (THETA-REF9053 THETA)
                                            (PHI-REF9054 PHI)
                                            (TAUP1-REF9055 TAUP1)
                                            (TAUP2-REF9056 TAUP2)
                                            (TAUQ1-REF9057 TAUQ1)
                                            (WORK-REF9058 WORK))
      (%%DORBDB2 M-REF9046 P-REF9047 Q-REF9048 X11-REF9049 LDX11-REF9050
       X21-REF9051 LDX21-REF9052 THETA-REF9053 PHI-REF9054 TAUP1-REF9055
       TAUP2-REF9056 TAUQ1-REF9057 WORK-REF9058 LWORK-REF9059 INFO-REF9060))))

(CFFI:DEFCFUN ("dorbdb3_" %%DORBDB3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9061 ':INT32) (P-REF9062 ':INT32)
                              (Q-REF9063 ':INT32) (LDX11-REF9065 ':INT32)
                              (LDX21-REF9067 ':INT32) (LWORK-REF9074 ':INT32)
                              (INFO-REF9075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9061 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9062 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9063 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9065 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9067 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9074 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9064 X11) (X21-REF9066 X21)
                                            (THETA-REF9068 THETA)
                                            (PHI-REF9069 PHI)
                                            (TAUP1-REF9070 TAUP1)
                                            (TAUP2-REF9071 TAUP2)
                                            (TAUQ1-REF9072 TAUQ1)
                                            (WORK-REF9073 WORK))
      (%%DORBDB3 M-REF9061 P-REF9062 Q-REF9063 X11-REF9064 LDX11-REF9065
       X21-REF9066 LDX21-REF9067 THETA-REF9068 PHI-REF9069 TAUP1-REF9070
       TAUP2-REF9071 TAUQ1-REF9072 WORK-REF9073 LWORK-REF9074 INFO-REF9075))))

(CFFI:DEFCFUN ("dorbdb4_" %%DORBDB4 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9076 ':INT32) (P-REF9077 ':INT32)
                              (Q-REF9078 ':INT32) (LDX11-REF9080 ':INT32)
                              (LDX21-REF9082 ':INT32) (LWORK-REF9090 ':INT32)
                              (INFO-REF9091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9076 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9077 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9078 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9080 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9082 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9090 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9079 X11) (X21-REF9081 X21)
                                            (THETA-REF9083 THETA)
                                            (PHI-REF9084 PHI)
                                            (TAUP1-REF9085 TAUP1)
                                            (TAUP2-REF9086 TAUP2)
                                            (TAUQ1-REF9087 TAUQ1)
                                            (PHANTOM-REF9088 PHANTOM)
                                            (WORK-REF9089 WORK))
      (%%DORBDB4 M-REF9076 P-REF9077 Q-REF9078 X11-REF9079 LDX11-REF9080
       X21-REF9081 LDX21-REF9082 THETA-REF9083 PHI-REF9084 TAUP1-REF9085
       TAUP2-REF9086 TAUQ1-REF9087 PHANTOM-REF9088 WORK-REF9089 LWORK-REF9090
       INFO-REF9091))))

(CFFI:DEFCFUN ("dorbdb5_" %%DORBDB5 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9092 ':INT32) (M2-REF9093 ':INT32)
                              (N-REF9094 ':INT32) (INCX1-REF9096 ':INT32)
                              (INCX2-REF9098 ':INT32) (LDQ1-REF9100 ':INT32)
                              (LDQ2-REF9102 ':INT32) (LWORK-REF9104 ':INT32)
                              (INFO-REF9105 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9092 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9093 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9096 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9098 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9100 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9102 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9104 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9105 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9095 X1) (X2-REF9097 X2)
                                            (Q1-REF9099 Q1) (Q2-REF9101 Q2)
                                            (WORK-REF9103 WORK))
      (%%DORBDB5 M1-REF9092 M2-REF9093 N-REF9094 X1-REF9095 INCX1-REF9096
       X2-REF9097 INCX2-REF9098 Q1-REF9099 LDQ1-REF9100 Q2-REF9101 LDQ2-REF9102
       WORK-REF9103 LWORK-REF9104 INFO-REF9105))))

(CFFI:DEFCFUN ("dorbdb6_" %%DORBDB6 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9106 ':INT32) (M2-REF9107 ':INT32)
                              (N-REF9108 ':INT32) (INCX1-REF9110 ':INT32)
                              (INCX2-REF9112 ':INT32) (LDQ1-REF9114 ':INT32)
                              (LDQ2-REF9116 ':INT32) (LWORK-REF9118 ':INT32)
                              (INFO-REF9119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9106 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9107 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9110 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9112 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9114 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9116 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9118 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9109 X1) (X2-REF9111 X2)
                                            (Q1-REF9113 Q1) (Q2-REF9115 Q2)
                                            (WORK-REF9117 WORK))
      (%%DORBDB6 M1-REF9106 M2-REF9107 N-REF9108 X1-REF9109 INCX1-REF9110
       X2-REF9111 INCX2-REF9112 Q1-REF9113 LDQ1-REF9114 Q2-REF9115 LDQ2-REF9116
       WORK-REF9117 LWORK-REF9118 INFO-REF9119))))

(CFFI:DEFCFUN ("dorcsd_" %%DORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9126 ':INT32) (P-REF9127 ':INT32)
                              (Q-REF9128 ':INT32) (LDX11-REF9130 ':INT32)
                              (LDX12-REF9132 ':INT32) (LDX21-REF9134 ':INT32)
                              (LDX22-REF9136 ':INT32) (LDU1-REF9139 ':INT32)
                              (LDU2-REF9141 ':INT32) (LDV1T-REF9143 ':INT32)
                              (LDV2T-REF9145 ':INT32) (LWORK-REF9147 ':INT32)
                              (INFO-REF9149 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9126 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9127 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9128 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9130 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9132 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9134 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9136 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9139 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9141 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9143 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF9145 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9147 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9149 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9129 X11) (X12-REF9131 X12)
                                            (X21-REF9133 X21) (X22-REF9135 X22)
                                            (THETA-REF9137 THETA)
                                            (U1-REF9138 U1) (U2-REF9140 U2)
                                            (V1T-REF9142 V1T) (V2T-REF9144 V2T)
                                            (WORK-REF9146 WORK)
                                            (IWORK-REF9148 IWORK))
      (%%DORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF9126 P-REF9127
       Q-REF9128 X11-REF9129 LDX11-REF9130 X12-REF9131 LDX12-REF9132
       X21-REF9133 LDX21-REF9134 X22-REF9135 LDX22-REF9136 THETA-REF9137
       U1-REF9138 LDU1-REF9139 U2-REF9140 LDU2-REF9141 V1T-REF9142
       LDV1T-REF9143 V2T-REF9144 LDV2T-REF9145 WORK-REF9146 LWORK-REF9147
       IWORK-REF9148 INFO-REF9149))))

(CFFI:DEFCFUN ("dorcsd2by1_" %%DORCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9153 ':INT32) (P-REF9154 ':INT32)
                              (Q-REF9155 ':INT32) (LDX11-REF9157 ':INT32)
                              (LDX21-REF9159 ':INT32) (LDU1-REF9162 ':INT32)
                              (LDU2-REF9164 ':INT32) (LDV1T-REF9166 ':INT32)
                              (LWORK-REF9168 ':INT32) (INFO-REF9170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9153 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9154 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9155 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9157 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9159 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9162 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9164 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9166 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9168 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9156 X11) (X21-REF9158 X21)
                                            (THETA-REF9160 THETA)
                                            (U1-REF9161 U1) (U2-REF9163 U2)
                                            (V1T-REF9165 V1T)
                                            (WORK-REF9167 WORK)
                                            (IWORK-REF9169 IWORK))
      (%%DORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF9153 P-REF9154 Q-REF9155
       X11-REF9156 LDX11-REF9157 X21-REF9158 LDX21-REF9159 THETA-REF9160
       U1-REF9161 LDU1-REF9162 U2-REF9163 LDU2-REF9164 V1T-REF9165
       LDV1T-REF9166 WORK-REF9167 LWORK-REF9168 IWORK-REF9169 INFO-REF9170))))

(CFFI:DEFCFUN ("dorg2l_" %%DORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9171 ':INT32) (N-REF9172 ':INT32)
                              (K-REF9173 ':INT32) (LDA-REF9175 ':INT32)
                              (INFO-REF9178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9171 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9172 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9173 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9175 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9174 A) (TAU-REF9176 TAU)
                                            (WORK-REF9177 WORK))
      (%%DORG2L M-REF9171 N-REF9172 K-REF9173 A-REF9174 LDA-REF9175 TAU-REF9176
       WORK-REF9177 INFO-REF9178))))

(CFFI:DEFCFUN ("dorg2r_" %%DORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9179 ':INT32) (N-REF9180 ':INT32)
                              (K-REF9181 ':INT32) (LDA-REF9183 ':INT32)
                              (INFO-REF9186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9179 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9181 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9182 A) (TAU-REF9184 TAU)
                                            (WORK-REF9185 WORK))
      (%%DORG2R M-REF9179 N-REF9180 K-REF9181 A-REF9182 LDA-REF9183 TAU-REF9184
       WORK-REF9185 INFO-REF9186))))

(CFFI:DEFCFUN ("dorgbr_" %%DORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9188 ':INT32) (N-REF9189 ':INT32)
                              (K-REF9190 ':INT32) (LDA-REF9192 ':INT32)
                              (LWORK-REF9195 ':INT32) (INFO-REF9196 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9188 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9189 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9190 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9192 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9195 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9196 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9191 A) (TAU-REF9193 TAU)
                                            (WORK-REF9194 WORK))
      (%%DORGBR VECT M-REF9188 N-REF9189 K-REF9190 A-REF9191 LDA-REF9192
       TAU-REF9193 WORK-REF9194 LWORK-REF9195 INFO-REF9196))))

(CFFI:DEFCFUN ("dorghr_" %%DORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9197 ':INT32) (ILO-REF9198 ':INT32)
                              (IHI-REF9199 ':INT32) (LDA-REF9201 ':INT32)
                              (LWORK-REF9204 ':INT32) (INFO-REF9205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9197 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9198 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9199 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9204 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9205 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9200 A) (TAU-REF9202 TAU)
                                            (WORK-REF9203 WORK))
      (%%DORGHR N-REF9197 ILO-REF9198 IHI-REF9199 A-REF9200 LDA-REF9201
       TAU-REF9202 WORK-REF9203 LWORK-REF9204 INFO-REF9205))))

(CFFI:DEFCFUN ("dorgl2_" %%DORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9206 ':INT32) (N-REF9207 ':INT32)
                              (K-REF9208 ':INT32) (LDA-REF9210 ':INT32)
                              (INFO-REF9213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9206 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9207 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9208 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9210 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9209 A) (TAU-REF9211 TAU)
                                            (WORK-REF9212 WORK))
      (%%DORGL2 M-REF9206 N-REF9207 K-REF9208 A-REF9209 LDA-REF9210 TAU-REF9211
       WORK-REF9212 INFO-REF9213))))

(CFFI:DEFCFUN ("dorglq_" %%DORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9214 ':INT32) (N-REF9215 ':INT32)
                              (K-REF9216 ':INT32) (LDA-REF9218 ':INT32)
                              (LWORK-REF9221 ':INT32) (INFO-REF9222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9214 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9216 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9218 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9221 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9222 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9217 A) (TAU-REF9219 TAU)
                                            (WORK-REF9220 WORK))
      (%%DORGLQ M-REF9214 N-REF9215 K-REF9216 A-REF9217 LDA-REF9218 TAU-REF9219
       WORK-REF9220 LWORK-REF9221 INFO-REF9222))))

(CFFI:DEFCFUN ("dorgql_" %%DORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9223 ':INT32) (N-REF9224 ':INT32)
                              (K-REF9225 ':INT32) (LDA-REF9227 ':INT32)
                              (LWORK-REF9230 ':INT32) (INFO-REF9231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9223 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9225 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9227 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9230 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9226 A) (TAU-REF9228 TAU)
                                            (WORK-REF9229 WORK))
      (%%DORGQL M-REF9223 N-REF9224 K-REF9225 A-REF9226 LDA-REF9227 TAU-REF9228
       WORK-REF9229 LWORK-REF9230 INFO-REF9231))))

(CFFI:DEFCFUN ("dorgqr_" %%DORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9232 ':INT32) (N-REF9233 ':INT32)
                              (K-REF9234 ':INT32) (LDA-REF9236 ':INT32)
                              (LWORK-REF9239 ':INT32) (INFO-REF9240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9232 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9233 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9234 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9236 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9239 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9235 A) (TAU-REF9237 TAU)
                                            (WORK-REF9238 WORK))
      (%%DORGQR M-REF9232 N-REF9233 K-REF9234 A-REF9235 LDA-REF9236 TAU-REF9237
       WORK-REF9238 LWORK-REF9239 INFO-REF9240))))

(CFFI:DEFCFUN ("dorgr2_" %%DORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9241 ':INT32) (N-REF9242 ':INT32)
                              (K-REF9243 ':INT32) (LDA-REF9245 ':INT32)
                              (INFO-REF9248 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9241 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9243 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9245 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9248 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9244 A) (TAU-REF9246 TAU)
                                            (WORK-REF9247 WORK))
      (%%DORGR2 M-REF9241 N-REF9242 K-REF9243 A-REF9244 LDA-REF9245 TAU-REF9246
       WORK-REF9247 INFO-REF9248))))

(CFFI:DEFCFUN ("dorgrq_" %%DORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9249 ':INT32) (N-REF9250 ':INT32)
                              (K-REF9251 ':INT32) (LDA-REF9253 ':INT32)
                              (LWORK-REF9256 ':INT32) (INFO-REF9257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9249 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9250 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9251 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9253 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9256 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9252 A) (TAU-REF9254 TAU)
                                            (WORK-REF9255 WORK))
      (%%DORGRQ M-REF9249 N-REF9250 K-REF9251 A-REF9252 LDA-REF9253 TAU-REF9254
       WORK-REF9255 LWORK-REF9256 INFO-REF9257))))

(CFFI:DEFCFUN ("dorgtr_" %%DORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9259 ':INT32) (LDA-REF9261 ':INT32)
                              (LWORK-REF9264 ':INT32) (INFO-REF9265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9261 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9264 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9265 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9260 A) (TAU-REF9262 TAU)
                                            (WORK-REF9263 WORK))
      (%%DORGTR UPLO N-REF9259 A-REF9260 LDA-REF9261 TAU-REF9262 WORK-REF9263
       LWORK-REF9264 INFO-REF9265))))

(CFFI:DEFCFUN ("dorgtsqr_" %%DORGTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGTSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9266 ':INT32) (N-REF9267 ':INT32)
                              (MB-REF9268 ':INT32) (NB-REF9269 ':INT32)
                              (LDA-REF9271 ':INT32) (LDT-REF9273 ':INT32)
                              (LWORK-REF9275 ':INT32) (INFO-REF9276 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9266 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9268 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9269 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9271 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9273 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9275 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9276 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9270 A) (T-REF9272 T)
                                            (WORK-REF9274 WORK))
      (%%DORGTSQR M-REF9266 N-REF9267 MB-REF9268 NB-REF9269 A-REF9270
       LDA-REF9271 T-REF9272 LDT-REF9273 WORK-REF9274 LWORK-REF9275
       INFO-REF9276))))

(CFFI:DEFCFUN ("dorhr_col_" %%DORHR_COL :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORHR_COL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9277 ':INT32) (N-REF9278 ':INT32)
                              (NB-REF9279 ':INT32) (LDA-REF9281 ':INT32)
                              (LDT-REF9283 ':INT32) (INFO-REF9285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9277 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9279 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9281 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9283 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9285 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9280 A) (T-REF9282 T)
                                            (D-REF9284 D))
      (%%DORHR_COL M-REF9277 N-REF9278 NB-REF9279 A-REF9280 LDA-REF9281
       T-REF9282 LDT-REF9283 D-REF9284 INFO-REF9285))))

(CFFI:DEFCFUN ("dorm22_" %%DORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9288 ':INT32) (N-REF9289 ':INT32)
                              (N1-REF9290 ':INT32) (N2-REF9291 ':INT32)
                              (LDQ-REF9293 ':INT32) (LDC-REF9295 ':INT32)
                              (LWORK-REF9297 ':INT32) (INFO-REF9298 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9288 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9289 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF9290 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF9291 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9293 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9295 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9297 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9298 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF9292 Q) (C-REF9294 C)
                                            (WORK-REF9296 WORK))
      (%%DORM22 SIDE TRANS M-REF9288 N-REF9289 N1-REF9290 N2-REF9291 Q-REF9292
       LDQ-REF9293 C-REF9294 LDC-REF9295 WORK-REF9296 LWORK-REF9297
       INFO-REF9298))))

(CFFI:DEFCFUN ("dorm2l_" %%DORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9301 ':INT32) (N-REF9302 ':INT32)
                              (K-REF9303 ':INT32) (LDA-REF9305 ':INT32)
                              (LDC-REF9308 ':INT32) (INFO-REF9310 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9301 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9303 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9305 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9308 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9310 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9304 A) (TAU-REF9306 TAU)
                                            (C-REF9307 C) (WORK-REF9309 WORK))
      (%%DORM2L SIDE TRANS M-REF9301 N-REF9302 K-REF9303 A-REF9304 LDA-REF9305
       TAU-REF9306 C-REF9307 LDC-REF9308 WORK-REF9309 INFO-REF9310))))

(CFFI:DEFCFUN ("dorm2r_" %%DORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9313 ':INT32) (N-REF9314 ':INT32)
                              (K-REF9315 ':INT32) (LDA-REF9317 ':INT32)
                              (LDC-REF9320 ':INT32) (INFO-REF9322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9313 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9314 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9315 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9317 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9320 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9316 A) (TAU-REF9318 TAU)
                                            (C-REF9319 C) (WORK-REF9321 WORK))
      (%%DORM2R SIDE TRANS M-REF9313 N-REF9314 K-REF9315 A-REF9316 LDA-REF9317
       TAU-REF9318 C-REF9319 LDC-REF9320 WORK-REF9321 INFO-REF9322))))

(CFFI:DEFCFUN ("dormbr_" %%DORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9326 ':INT32) (N-REF9327 ':INT32)
                              (K-REF9328 ':INT32) (LDA-REF9330 ':INT32)
                              (LDC-REF9333 ':INT32) (LWORK-REF9335 ':INT32)
                              (INFO-REF9336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9326 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9328 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9330 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9333 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9335 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9329 A) (TAU-REF9331 TAU)
                                            (C-REF9332 C) (WORK-REF9334 WORK))
      (%%DORMBR VECT SIDE TRANS M-REF9326 N-REF9327 K-REF9328 A-REF9329
       LDA-REF9330 TAU-REF9331 C-REF9332 LDC-REF9333 WORK-REF9334 LWORK-REF9335
       INFO-REF9336))))

(CFFI:DEFCFUN ("dormhr_" %%DORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9339 ':INT32) (N-REF9340 ':INT32)
                              (ILO-REF9341 ':INT32) (IHI-REF9342 ':INT32)
                              (LDA-REF9344 ':INT32) (LDC-REF9347 ':INT32)
                              (LWORK-REF9349 ':INT32) (INFO-REF9350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9339 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9340 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9341 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9342 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9344 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9347 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9349 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9343 A) (TAU-REF9345 TAU)
                                            (C-REF9346 C) (WORK-REF9348 WORK))
      (%%DORMHR SIDE TRANS M-REF9339 N-REF9340 ILO-REF9341 IHI-REF9342
       A-REF9343 LDA-REF9344 TAU-REF9345 C-REF9346 LDC-REF9347 WORK-REF9348
       LWORK-REF9349 INFO-REF9350))))

(CFFI:DEFCFUN ("dorml2_" %%DORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9353 ':INT32) (N-REF9354 ':INT32)
                              (K-REF9355 ':INT32) (LDA-REF9357 ':INT32)
                              (LDC-REF9360 ':INT32) (INFO-REF9362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9353 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9355 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9357 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9360 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9356 A) (TAU-REF9358 TAU)
                                            (C-REF9359 C) (WORK-REF9361 WORK))
      (%%DORML2 SIDE TRANS M-REF9353 N-REF9354 K-REF9355 A-REF9356 LDA-REF9357
       TAU-REF9358 C-REF9359 LDC-REF9360 WORK-REF9361 INFO-REF9362))))

(CFFI:DEFCFUN ("dormlq_" %%DORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9365 ':INT32) (N-REF9366 ':INT32)
                              (K-REF9367 ':INT32) (LDA-REF9369 ':INT32)
                              (LDC-REF9372 ':INT32) (LWORK-REF9374 ':INT32)
                              (INFO-REF9375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9365 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9366 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9367 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9369 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9372 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9374 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9375 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9368 A) (TAU-REF9370 TAU)
                                            (C-REF9371 C) (WORK-REF9373 WORK))
      (%%DORMLQ SIDE TRANS M-REF9365 N-REF9366 K-REF9367 A-REF9368 LDA-REF9369
       TAU-REF9370 C-REF9371 LDC-REF9372 WORK-REF9373 LWORK-REF9374
       INFO-REF9375))))

(CFFI:DEFCFUN ("dormql_" %%DORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9378 ':INT32) (N-REF9379 ':INT32)
                              (K-REF9380 ':INT32) (LDA-REF9382 ':INT32)
                              (LDC-REF9385 ':INT32) (LWORK-REF9387 ':INT32)
                              (INFO-REF9388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9378 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9379 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9380 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9382 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9385 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9387 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9388 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9381 A) (TAU-REF9383 TAU)
                                            (C-REF9384 C) (WORK-REF9386 WORK))
      (%%DORMQL SIDE TRANS M-REF9378 N-REF9379 K-REF9380 A-REF9381 LDA-REF9382
       TAU-REF9383 C-REF9384 LDC-REF9385 WORK-REF9386 LWORK-REF9387
       INFO-REF9388))))

(CFFI:DEFCFUN ("dormqr_" %%DORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9391 ':INT32) (N-REF9392 ':INT32)
                              (K-REF9393 ':INT32) (LDA-REF9395 ':INT32)
                              (LDC-REF9398 ':INT32) (LWORK-REF9400 ':INT32)
                              (INFO-REF9401 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9391 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9393 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9395 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9398 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9400 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9401 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9394 A) (TAU-REF9396 TAU)
                                            (C-REF9397 C) (WORK-REF9399 WORK))
      (%%DORMQR SIDE TRANS M-REF9391 N-REF9392 K-REF9393 A-REF9394 LDA-REF9395
       TAU-REF9396 C-REF9397 LDC-REF9398 WORK-REF9399 LWORK-REF9400
       INFO-REF9401))))

(CFFI:DEFCFUN ("dormr2_" %%DORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9404 ':INT32) (N-REF9405 ':INT32)
                              (K-REF9406 ':INT32) (LDA-REF9408 ':INT32)
                              (LDC-REF9411 ':INT32) (INFO-REF9413 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9404 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9405 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9406 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9408 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9411 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9413 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9407 A) (TAU-REF9409 TAU)
                                            (C-REF9410 C) (WORK-REF9412 WORK))
      (%%DORMR2 SIDE TRANS M-REF9404 N-REF9405 K-REF9406 A-REF9407 LDA-REF9408
       TAU-REF9409 C-REF9410 LDC-REF9411 WORK-REF9412 INFO-REF9413))))

(CFFI:DEFCFUN ("dormr3_" %%DORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9416 ':INT32) (N-REF9417 ':INT32)
                              (K-REF9418 ':INT32) (L-REF9419 ':INT32)
                              (LDA-REF9421 ':INT32) (LDC-REF9424 ':INT32)
                              (INFO-REF9426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9416 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9418 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9419 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9421 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9424 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9420 A) (TAU-REF9422 TAU)
                                            (C-REF9423 C) (WORK-REF9425 WORK))
      (%%DORMR3 SIDE TRANS M-REF9416 N-REF9417 K-REF9418 L-REF9419 A-REF9420
       LDA-REF9421 TAU-REF9422 C-REF9423 LDC-REF9424 WORK-REF9425
       INFO-REF9426))))

(CFFI:DEFCFUN ("dormrq_" %%DORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9429 ':INT32) (N-REF9430 ':INT32)
                              (K-REF9431 ':INT32) (LDA-REF9433 ':INT32)
                              (LDC-REF9436 ':INT32) (LWORK-REF9438 ':INT32)
                              (INFO-REF9439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9429 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9430 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9431 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9433 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9436 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9438 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9432 A) (TAU-REF9434 TAU)
                                            (C-REF9435 C) (WORK-REF9437 WORK))
      (%%DORMRQ SIDE TRANS M-REF9429 N-REF9430 K-REF9431 A-REF9432 LDA-REF9433
       TAU-REF9434 C-REF9435 LDC-REF9436 WORK-REF9437 LWORK-REF9438
       INFO-REF9439))))

(CFFI:DEFCFUN ("dormrz_" %%DORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9442 ':INT32) (N-REF9443 ':INT32)
                              (K-REF9444 ':INT32) (L-REF9445 ':INT32)
                              (LDA-REF9447 ':INT32) (LDC-REF9450 ':INT32)
                              (LWORK-REF9452 ':INT32) (INFO-REF9453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9442 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9443 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9444 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9445 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9447 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9450 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9452 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9446 A) (TAU-REF9448 TAU)
                                            (C-REF9449 C) (WORK-REF9451 WORK))
      (%%DORMRZ SIDE TRANS M-REF9442 N-REF9443 K-REF9444 L-REF9445 A-REF9446
       LDA-REF9447 TAU-REF9448 C-REF9449 LDC-REF9450 WORK-REF9451 LWORK-REF9452
       INFO-REF9453))))

(CFFI:DEFCFUN ("dormtr_" %%DORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9457 ':INT32) (N-REF9458 ':INT32)
                              (LDA-REF9460 ':INT32) (LDC-REF9463 ':INT32)
                              (LWORK-REF9465 ':INT32) (INFO-REF9466 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9457 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9463 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9465 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9466 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9459 A) (TAU-REF9461 TAU)
                                            (C-REF9462 C) (WORK-REF9464 WORK))
      (%%DORMTR SIDE UPLO TRANS M-REF9457 N-REF9458 A-REF9459 LDA-REF9460
       TAU-REF9461 C-REF9462 LDC-REF9463 WORK-REF9464 LWORK-REF9465
       INFO-REF9466))))

(CFFI:DEFCFUN ("dpbcon_" %%DPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBCON (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9468 ':INT32) (KD-REF9469 ':INT32)
                              (LDAB-REF9471 ':INT32) (ANORM-REF9472 ':DOUBLE)
                              (RCOND-REF9473 ':DOUBLE) (INFO-REF9476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9468 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9469 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9471 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9472 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9473 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9470 AB) (WORK-REF9474 WORK)
                                            (IWORK-REF9475 IWORK))
      (%%DPBCON UPLO N-REF9468 KD-REF9469 AB-REF9470 LDAB-REF9471 ANORM-REF9472
       RCOND-REF9473 WORK-REF9474 IWORK-REF9475 INFO-REF9476))))

(CFFI:DEFCFUN ("dpbequ_" %%DPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9478 ':INT32) (KD-REF9479 ':INT32)
                              (LDAB-REF9481 ':INT32) (SCOND-REF9483 ':DOUBLE)
                              (AMAX-REF9484 ':DOUBLE) (INFO-REF9485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9479 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9481 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9483 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9484 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9480 AB) (S-REF9482 S))
      (%%DPBEQU UPLO N-REF9478 KD-REF9479 AB-REF9480 LDAB-REF9481 S-REF9482
       SCOND-REF9483 AMAX-REF9484 INFO-REF9485))))

(CFFI:DEFCFUN ("dpbrfs_" %%DPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9487 ':INT32) (KD-REF9488 ':INT32)
                              (NRHS-REF9489 ':INT32) (LDAB-REF9491 ':INT32)
                              (LDAFB-REF9493 ':INT32) (LDB-REF9495 ':INT32)
                              (LDX-REF9497 ':INT32) (INFO-REF9502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9487 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9488 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9489 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9491 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9493 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9495 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9497 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9490 AB) (AFB-REF9492 AFB)
                                            (B-REF9494 B) (X-REF9496 X)
                                            (FERR-REF9498 FERR)
                                            (BERR-REF9499 BERR)
                                            (WORK-REF9500 WORK)
                                            (IWORK-REF9501 IWORK))
      (%%DPBRFS UPLO N-REF9487 KD-REF9488 NRHS-REF9489 AB-REF9490 LDAB-REF9491
       AFB-REF9492 LDAFB-REF9493 B-REF9494 LDB-REF9495 X-REF9496 LDX-REF9497
       FERR-REF9498 BERR-REF9499 WORK-REF9500 IWORK-REF9501 INFO-REF9502))))

(CFFI:DEFCFUN ("dpbstf_" %%DPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9504 ':INT32) (KD-REF9505 ':INT32)
                              (LDAB-REF9507 ':INT32) (INFO-REF9508 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9505 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9507 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9508 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9506 AB))
      (%%DPBSTF UPLO N-REF9504 KD-REF9505 AB-REF9506 LDAB-REF9507
       INFO-REF9508))))

(CFFI:DEFCFUN ("dpbsv_" %%DPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9510 ':INT32) (KD-REF9511 ':INT32)
                              (NRHS-REF9512 ':INT32) (LDAB-REF9514 ':INT32)
                              (LDB-REF9516 ':INT32) (INFO-REF9517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9511 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9512 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9514 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9516 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9513 AB) (B-REF9515 B))
      (%%DPBSV UPLO N-REF9510 KD-REF9511 NRHS-REF9512 AB-REF9513 LDAB-REF9514
       B-REF9515 LDB-REF9516 INFO-REF9517))))

(CFFI:DEFCFUN ("dpbsvx_" %%DPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9520 ':INT32) (KD-REF9521 ':INT32)
                              (NRHS-REF9522 ':INT32) (LDAB-REF9524 ':INT32)
                              (LDAFB-REF9526 ':INT32) (LDB-REF9530 ':INT32)
                              (LDX-REF9532 ':INT32) (RCOND-REF9533 ':DOUBLE)
                              (INFO-REF9538 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9520 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9521 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9522 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9524 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9526 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9530 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9532 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9533 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9538 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9523 AB) (AFB-REF9525 AFB)
                                            (S-REF9528 S) (B-REF9529 B)
                                            (X-REF9531 X) (FERR-REF9534 FERR)
                                            (BERR-REF9535 BERR)
                                            (WORK-REF9536 WORK)
                                            (IWORK-REF9537 IWORK))
      (%%DPBSVX FACT UPLO N-REF9520 KD-REF9521 NRHS-REF9522 AB-REF9523
       LDAB-REF9524 AFB-REF9525 LDAFB-REF9526 EQUED S-REF9528 B-REF9529
       LDB-REF9530 X-REF9531 LDX-REF9532 RCOND-REF9533 FERR-REF9534
       BERR-REF9535 WORK-REF9536 IWORK-REF9537 INFO-REF9538))))

(CFFI:DEFCFUN ("dpbtf2_" %%DPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9540 ':INT32) (KD-REF9541 ':INT32)
                              (LDAB-REF9543 ':INT32) (INFO-REF9544 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9541 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9543 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9544 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9542 AB))
      (%%DPBTF2 UPLO N-REF9540 KD-REF9541 AB-REF9542 LDAB-REF9543
       INFO-REF9544))))

(CFFI:DEFCFUN ("dpbtrf_" %%DPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9546 ':INT32) (KD-REF9547 ':INT32)
                              (LDAB-REF9549 ':INT32) (INFO-REF9550 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9547 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9549 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9550 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9548 AB))
      (%%DPBTRF UPLO N-REF9546 KD-REF9547 AB-REF9548 LDAB-REF9549
       INFO-REF9550))))

(CFFI:DEFCFUN ("dpbtrs_" %%DPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9552 ':INT32) (KD-REF9553 ':INT32)
                              (NRHS-REF9554 ':INT32) (LDAB-REF9556 ':INT32)
                              (LDB-REF9558 ':INT32) (INFO-REF9559 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9552 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9553 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9554 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9556 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9558 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9559 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9555 AB) (B-REF9557 B))
      (%%DPBTRS UPLO N-REF9552 KD-REF9553 NRHS-REF9554 AB-REF9555 LDAB-REF9556
       B-REF9557 LDB-REF9558 INFO-REF9559))))

(CFFI:DEFCFUN ("dpftrf_" %%DPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9562 ':INT32) (INFO-REF9564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9563 A))
      (%%DPFTRF TRANSR UPLO N-REF9562 A-REF9563 INFO-REF9564))))

(CFFI:DEFCFUN ("dpftri_" %%DPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9567 ':INT32) (INFO-REF9569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9567 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9568 A))
      (%%DPFTRI TRANSR UPLO N-REF9567 A-REF9568 INFO-REF9569))))

(CFFI:DEFCFUN ("dpftrs_" %%DPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9572 ':INT32) (NRHS-REF9573 ':INT32)
                              (LDB-REF9576 ':INT32) (INFO-REF9577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9573 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9576 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9574 A) (B-REF9575 B))
      (%%DPFTRS TRANSR UPLO N-REF9572 NRHS-REF9573 A-REF9574 B-REF9575
       LDB-REF9576 INFO-REF9577))))

(CFFI:DEFCFUN ("dpocon_" %%DPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9579 ':INT32) (LDA-REF9581 ':INT32)
                              (ANORM-REF9582 ':DOUBLE) (RCOND-REF9583 ':DOUBLE)
                              (INFO-REF9586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9581 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9582 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9583 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9586 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9580 A) (WORK-REF9584 WORK)
                                            (IWORK-REF9585 IWORK))
      (%%DPOCON UPLO N-REF9579 A-REF9580 LDA-REF9581 ANORM-REF9582
       RCOND-REF9583 WORK-REF9584 IWORK-REF9585 INFO-REF9586))))

(CFFI:DEFCFUN ("dpoequ_" %%DPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9587 ':INT32) (LDA-REF9589 ':INT32)
                              (SCOND-REF9591 ':DOUBLE) (AMAX-REF9592 ':DOUBLE)
                              (INFO-REF9593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9587 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9589 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9591 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9592 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9588 A) (S-REF9590 S))
      (%%DPOEQU N-REF9587 A-REF9588 LDA-REF9589 S-REF9590 SCOND-REF9591
       AMAX-REF9592 INFO-REF9593))))

(CFFI:DEFCFUN ("dpoequb_" %%DPOEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9594 ':INT32) (LDA-REF9596 ':INT32)
                              (SCOND-REF9598 ':DOUBLE) (AMAX-REF9599 ':DOUBLE)
                              (INFO-REF9600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9598 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9599 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9595 A) (S-REF9597 S))
      (%%DPOEQUB N-REF9594 A-REF9595 LDA-REF9596 S-REF9597 SCOND-REF9598
       AMAX-REF9599 INFO-REF9600))))

(CFFI:DEFCFUN ("dporfs_" %%DPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9602 ':INT32) (NRHS-REF9603 ':INT32)
                              (LDA-REF9605 ':INT32) (LDAF-REF9607 ':INT32)
                              (LDB-REF9609 ':INT32) (LDX-REF9611 ':INT32)
                              (INFO-REF9616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9603 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9607 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9609 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9611 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9616 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9604 A) (AF-REF9606 AF)
                                            (B-REF9608 B) (X-REF9610 X)
                                            (FERR-REF9612 FERR)
                                            (BERR-REF9613 BERR)
                                            (WORK-REF9614 WORK)
                                            (IWORK-REF9615 IWORK))
      (%%DPORFS UPLO N-REF9602 NRHS-REF9603 A-REF9604 LDA-REF9605 AF-REF9606
       LDAF-REF9607 B-REF9608 LDB-REF9609 X-REF9610 LDX-REF9611 FERR-REF9612
       BERR-REF9613 WORK-REF9614 IWORK-REF9615 INFO-REF9616))))

(CFFI:DEFCFUN ("dporfsx_" %%DPORFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9619 ':INT32) (NRHS-REF9620 ':INT32)
                              (LDA-REF9622 ':INT32) (LDAF-REF9624 ':INT32)
                              (LDB-REF9627 ':INT32) (LDX-REF9629 ':INT32)
                              (RCOND-REF9630 ':DOUBLE)
                              (N_ERR_BNDS-REF9632 ':INT32)
                              (NPARAMS-REF9635 ':INT32) (INFO-REF9639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9619 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9620 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9622 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9624 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9627 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9629 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9630 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9632 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9635 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9639 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9621 A) (AF-REF9623 AF)
                                            (S-REF9625 S) (B-REF9626 B)
                                            (X-REF9628 X) (BERR-REF9631 BERR)
                                            (ERR_BNDS_NORM-REF9633
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF9634
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF9636 PARAMS)
                                            (WORK-REF9637 WORK)
                                            (IWORK-REF9638 IWORK))
      (%%DPORFSX UPLO EQUED N-REF9619 NRHS-REF9620 A-REF9621 LDA-REF9622
       AF-REF9623 LDAF-REF9624 S-REF9625 B-REF9626 LDB-REF9627 X-REF9628
       LDX-REF9629 RCOND-REF9630 BERR-REF9631 N_ERR_BNDS-REF9632
       ERR_BNDS_NORM-REF9633 ERR_BNDS_COMP-REF9634 NPARAMS-REF9635
       PARAMS-REF9636 WORK-REF9637 IWORK-REF9638 INFO-REF9639))))

(CFFI:DEFCFUN ("dposv_" %%DPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9641 ':INT32) (NRHS-REF9642 ':INT32)
                              (LDA-REF9644 ':INT32) (LDB-REF9646 ':INT32)
                              (INFO-REF9647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9642 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9644 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9646 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9643 A) (B-REF9645 B))
      (%%DPOSV UPLO N-REF9641 NRHS-REF9642 A-REF9643 LDA-REF9644 B-REF9645
       LDB-REF9646 INFO-REF9647))))

(CFFI:DEFCFUN ("dposvx_" %%DPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9650 ':INT32) (NRHS-REF9651 ':INT32)
                              (LDA-REF9653 ':INT32) (LDAF-REF9655 ':INT32)
                              (LDB-REF9659 ':INT32) (LDX-REF9661 ':INT32)
                              (RCOND-REF9662 ':DOUBLE) (INFO-REF9667 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9651 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9653 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9655 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9659 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9661 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9662 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9667 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9652 A) (AF-REF9654 AF)
                                            (S-REF9657 S) (B-REF9658 B)
                                            (X-REF9660 X) (FERR-REF9663 FERR)
                                            (BERR-REF9664 BERR)
                                            (WORK-REF9665 WORK)
                                            (IWORK-REF9666 IWORK))
      (%%DPOSVX FACT UPLO N-REF9650 NRHS-REF9651 A-REF9652 LDA-REF9653
       AF-REF9654 LDAF-REF9655 EQUED S-REF9657 B-REF9658 LDB-REF9659 X-REF9660
       LDX-REF9661 RCOND-REF9662 FERR-REF9663 BERR-REF9664 WORK-REF9665
       IWORK-REF9666 INFO-REF9667))))

(CFFI:DEFCFUN ("dposvxx_" %%DPOSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9670 ':INT32) (NRHS-REF9671 ':INT32)
                              (LDA-REF9673 ':INT32) (LDAF-REF9675 ':INT32)
                              (LDB-REF9679 ':INT32) (LDX-REF9681 ':INT32)
                              (RCOND-REF9682 ':DOUBLE)
                              (RPVGRW-REF9683 ':DOUBLE)
                              (N_ERR_BNDS-REF9685 ':INT32)
                              (NPARAMS-REF9688 ':INT32) (INFO-REF9692 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9671 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9675 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9679 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9681 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9682 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF9683 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9685 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9688 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9692 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9672 A) (AF-REF9674 AF)
                                            (S-REF9677 S) (B-REF9678 B)
                                            (X-REF9680 X) (BERR-REF9684 BERR)
                                            (ERR_BNDS_NORM-REF9686
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF9687
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF9689 PARAMS)
                                            (WORK-REF9690 WORK)
                                            (IWORK-REF9691 IWORK))
      (%%DPOSVXX FACT UPLO N-REF9670 NRHS-REF9671 A-REF9672 LDA-REF9673
       AF-REF9674 LDAF-REF9675 EQUED S-REF9677 B-REF9678 LDB-REF9679 X-REF9680
       LDX-REF9681 RCOND-REF9682 RPVGRW-REF9683 BERR-REF9684 N_ERR_BNDS-REF9685
       ERR_BNDS_NORM-REF9686 ERR_BNDS_COMP-REF9687 NPARAMS-REF9688
       PARAMS-REF9689 WORK-REF9690 IWORK-REF9691 INFO-REF9692))))

(CFFI:DEFCFUN ("dpotf2_" %%DPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9694 ':INT32) (LDA-REF9696 ':INT32)
                              (INFO-REF9697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9696 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9695 A))
      (%%DPOTF2 UPLO N-REF9694 A-REF9695 LDA-REF9696 INFO-REF9697))))

(CFFI:DEFCFUN ("dpotrf_" %%DPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9699 ':INT32) (LDA-REF9701 ':INT32)
                              (INFO-REF9702 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9701 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9702 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9700 A))
      (%%DPOTRF UPLO N-REF9699 A-REF9700 LDA-REF9701 INFO-REF9702))))

(CFFI:DEFCFUN ("dpotrf2_" %%DPOTRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9704 ':INT32) (LDA-REF9706 ':INT32)
                              (INFO-REF9707 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9704 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9706 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9707 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9705 A))
      (%%DPOTRF2 UPLO N-REF9704 A-REF9705 LDA-REF9706 INFO-REF9707))))

(CFFI:DEFCFUN ("dpotri_" %%DPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9709 ':INT32) (LDA-REF9711 ':INT32)
                              (INFO-REF9712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9709 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9711 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9710 A))
      (%%DPOTRI UPLO N-REF9709 A-REF9710 LDA-REF9711 INFO-REF9712))))

(CFFI:DEFCFUN ("dpotrs_" %%DPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9714 ':INT32) (NRHS-REF9715 ':INT32)
                              (LDA-REF9717 ':INT32) (LDB-REF9719 ':INT32)
                              (INFO-REF9720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9715 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9717 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9719 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9716 A) (B-REF9718 B))
      (%%DPOTRS UPLO N-REF9714 NRHS-REF9715 A-REF9716 LDA-REF9717 B-REF9718
       LDB-REF9719 INFO-REF9720))))

(CFFI:DEFCFUN ("dppcon_" %%DPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9722 ':INT32) (ANORM-REF9724 ':DOUBLE)
                              (RCOND-REF9725 ':DOUBLE) (INFO-REF9728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9724 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9725 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9723 AP) (WORK-REF9726 WORK)
                                            (IWORK-REF9727 IWORK))
      (%%DPPCON UPLO N-REF9722 AP-REF9723 ANORM-REF9724 RCOND-REF9725
       WORK-REF9726 IWORK-REF9727 INFO-REF9728))))

(CFFI:DEFCFUN ("dppequ_" %%DPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9730 ':INT32) (SCOND-REF9733 ':DOUBLE)
                              (AMAX-REF9734 ':DOUBLE) (INFO-REF9735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9730 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9733 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9734 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9731 AP) (S-REF9732 S))
      (%%DPPEQU UPLO N-REF9730 AP-REF9731 S-REF9732 SCOND-REF9733 AMAX-REF9734
       INFO-REF9735))))

(CFFI:DEFCFUN ("dpprfs_" %%DPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9737 ':INT32) (NRHS-REF9738 ':INT32)
                              (LDB-REF9742 ':INT32) (LDX-REF9744 ':INT32)
                              (INFO-REF9749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9738 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9742 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9744 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9749 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9739 AP) (AFP-REF9740 AFP)
                                            (B-REF9741 B) (X-REF9743 X)
                                            (FERR-REF9745 FERR)
                                            (BERR-REF9746 BERR)
                                            (WORK-REF9747 WORK)
                                            (IWORK-REF9748 IWORK))
      (%%DPPRFS UPLO N-REF9737 NRHS-REF9738 AP-REF9739 AFP-REF9740 B-REF9741
       LDB-REF9742 X-REF9743 LDX-REF9744 FERR-REF9745 BERR-REF9746 WORK-REF9747
       IWORK-REF9748 INFO-REF9749))))

(CFFI:DEFCFUN ("dppsv_" %%DPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9751 ':INT32) (NRHS-REF9752 ':INT32)
                              (LDB-REF9755 ':INT32) (INFO-REF9756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9752 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9755 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9753 AP) (B-REF9754 B))
      (%%DPPSV UPLO N-REF9751 NRHS-REF9752 AP-REF9753 B-REF9754 LDB-REF9755
       INFO-REF9756))))

(CFFI:DEFCFUN ("dppsvx_" %%DPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9759 ':INT32) (NRHS-REF9760 ':INT32)
                              (LDB-REF9766 ':INT32) (LDX-REF9768 ':INT32)
                              (RCOND-REF9769 ':DOUBLE) (INFO-REF9774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9760 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9766 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9768 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9769 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9774 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9761 AP) (AFP-REF9762 AFP)
                                            (S-REF9764 S) (B-REF9765 B)
                                            (X-REF9767 X) (FERR-REF9770 FERR)
                                            (BERR-REF9771 BERR)
                                            (WORK-REF9772 WORK)
                                            (IWORK-REF9773 IWORK))
      (%%DPPSVX FACT UPLO N-REF9759 NRHS-REF9760 AP-REF9761 AFP-REF9762 EQUED
       S-REF9764 B-REF9765 LDB-REF9766 X-REF9767 LDX-REF9768 RCOND-REF9769
       FERR-REF9770 BERR-REF9771 WORK-REF9772 IWORK-REF9773 INFO-REF9774))))

(CFFI:DEFCFUN ("dpptrf_" %%DPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9776 ':INT32) (INFO-REF9778 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9778 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9777 AP))
      (%%DPPTRF UPLO N-REF9776 AP-REF9777 INFO-REF9778))))

(CFFI:DEFCFUN ("dpptri_" %%DPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9780 ':INT32) (INFO-REF9782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9780 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9781 AP))
      (%%DPPTRI UPLO N-REF9780 AP-REF9781 INFO-REF9782))))

(CFFI:DEFCFUN ("dpptrs_" %%DPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9784 ':INT32) (NRHS-REF9785 ':INT32)
                              (LDB-REF9788 ':INT32) (INFO-REF9789 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9785 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9788 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9789 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9786 AP) (B-REF9787 B))
      (%%DPPTRS UPLO N-REF9784 NRHS-REF9785 AP-REF9786 B-REF9787 LDB-REF9788
       INFO-REF9789))))

(CFFI:DEFCFUN ("dpstf2_" %%DPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9791 ':INT32) (LDA-REF9793 ':INT32)
                              (RANK-REF9795 ':INT32) (TOL-REF9796 ':DOUBLE)
                              (INFO-REF9798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9791 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9793 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9795 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9796 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9798 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9792 A) (PIV-REF9794 PIV)
                                            (WORK-REF9797 WORK))
      (%%DPSTF2 UPLO N-REF9791 A-REF9792 LDA-REF9793 PIV-REF9794 RANK-REF9795
       TOL-REF9796 WORK-REF9797 INFO-REF9798))))

(CFFI:DEFCFUN ("dpstrf_" %%DPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9800 ':INT32) (LDA-REF9802 ':INT32)
                              (RANK-REF9804 ':INT32) (TOL-REF9805 ':DOUBLE)
                              (INFO-REF9807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9800 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9802 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9804 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9805 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9801 A) (PIV-REF9803 PIV)
                                            (WORK-REF9806 WORK))
      (%%DPSTRF UPLO N-REF9800 A-REF9801 LDA-REF9802 PIV-REF9803 RANK-REF9804
       TOL-REF9805 WORK-REF9806 INFO-REF9807))))

(CFFI:DEFCFUN ("dptcon_" %%DPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTCON (N D E ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9808 ':INT32) (ANORM-REF9811 ':DOUBLE)
                              (RCOND-REF9812 ':DOUBLE) (INFO-REF9814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9811 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9812 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9809 D) (E-REF9810 E)
                                            (WORK-REF9813 WORK))
      (%%DPTCON N-REF9808 D-REF9809 E-REF9810 ANORM-REF9811 RCOND-REF9812
       WORK-REF9813 INFO-REF9814))))

(CFFI:DEFCFUN ("dpteqr_" %%DPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9816 ':INT32) (LDZ-REF9820 ':INT32)
                              (INFO-REF9822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9816 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9820 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9822 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9817 D) (E-REF9818 E)
                                            (Z-REF9819 Z) (WORK-REF9821 WORK))
      (%%DPTEQR COMPZ N-REF9816 D-REF9817 E-REF9818 Z-REF9819 LDZ-REF9820
       WORK-REF9821 INFO-REF9822))))

(CFFI:DEFCFUN ("dptrfs_" %%DPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTRFS (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTRFS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9823 ':INT32) (NRHS-REF9824 ':INT32)
                              (LDB-REF9830 ':INT32) (LDX-REF9832 ':INT32)
                              (INFO-REF9836 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9823 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9824 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9830 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9832 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9836 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9825 D) (E-REF9826 E)
                                            (DF-REF9827 DF) (EF-REF9828 EF)
                                            (B-REF9829 B) (X-REF9831 X)
                                            (FERR-REF9833 FERR)
                                            (BERR-REF9834 BERR)
                                            (WORK-REF9835 WORK))
      (%%DPTRFS N-REF9823 NRHS-REF9824 D-REF9825 E-REF9826 DF-REF9827
       EF-REF9828 B-REF9829 LDB-REF9830 X-REF9831 LDX-REF9832 FERR-REF9833
       BERR-REF9834 WORK-REF9835 INFO-REF9836))))

(CFFI:DEFCFUN ("dptsv_" %%DPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9837 ':INT32) (NRHS-REF9838 ':INT32)
                              (LDB-REF9842 ':INT32) (INFO-REF9843 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9838 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9842 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9843 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9839 D) (E-REF9840 E)
                                            (B-REF9841 B))
      (%%DPTSV N-REF9837 NRHS-REF9838 D-REF9839 E-REF9840 B-REF9841 LDB-REF9842
       INFO-REF9843))))

(CFFI:DEFCFUN ("dptsvx_" %%DPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9845 ':INT32) (NRHS-REF9846 ':INT32)
                              (LDB-REF9852 ':INT32) (LDX-REF9854 ':INT32)
                              (RCOND-REF9855 ':DOUBLE) (INFO-REF9859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9845 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9846 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9852 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9854 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9855 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9847 D) (E-REF9848 E)
                                            (DF-REF9849 DF) (EF-REF9850 EF)
                                            (B-REF9851 B) (X-REF9853 X)
                                            (FERR-REF9856 FERR)
                                            (BERR-REF9857 BERR)
                                            (WORK-REF9858 WORK))
      (%%DPTSVX FACT N-REF9845 NRHS-REF9846 D-REF9847 E-REF9848 DF-REF9849
       EF-REF9850 B-REF9851 LDB-REF9852 X-REF9853 LDX-REF9854 RCOND-REF9855
       FERR-REF9856 BERR-REF9857 WORK-REF9858 INFO-REF9859))))

(CFFI:DEFCFUN ("dpttrf_" %%DPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9860 ':INT32) (INFO-REF9863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9861 D) (E-REF9862 E))
      (%%DPTTRF N-REF9860 D-REF9861 E-REF9862 INFO-REF9863))))

(CFFI:DEFCFUN ("dpttrs_" %%DPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9864 ':INT32) (NRHS-REF9865 ':INT32)
                              (LDB-REF9869 ':INT32) (INFO-REF9870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9864 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9865 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9869 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9866 D) (E-REF9867 E)
                                            (B-REF9868 B))
      (%%DPTTRS N-REF9864 NRHS-REF9865 D-REF9866 E-REF9867 B-REF9868
       LDB-REF9869 INFO-REF9870))))

(CFFI:DEFCFUN ("dptts2_" %%DPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9871 ':INT32) (NRHS-REF9872 ':INT32)
                              (LDB-REF9876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9872 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9876 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9873 D) (E-REF9874 E)
                                            (B-REF9875 B))
      (%%DPTTS2 N-REF9871 NRHS-REF9872 D-REF9873 E-REF9874 B-REF9875
       LDB-REF9876))))

(CFFI:DEFCFUN ("drscl_" %%DRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9877 ':INT32) (SA-REF9878 ':DOUBLE)
                              (INCX-REF9880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF9878 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9880 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF9879 SX))
      (%%DRSCL N-REF9877 SA-REF9878 SX-REF9879 INCX-REF9880))))

(CFFI:DEFCFUN ("dsb2st_kernels_" %%DSB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DSB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF9882 ':INT32) (TTYPE-REF9883 ':INT32)
                              (ST-REF9884 ':INT32) (ED-REF9885 ':INT32)
                              (SWEEP-REF9886 ':INT32) (N-REF9887 ':INT32)
                              (NB-REF9888 ':INT32) (IB-REF9889 ':INT32)
                              (LDA-REF9891 ':INT32) (LDVT-REF9894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9882 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF9883 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF9884 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF9885 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF9886 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9888 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF9889 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF9894 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9890 A) (V-REF9892 V)
                                            (TAU-REF9893 TAU)
                                            (WORK-REF9895 WORK))
      (%%DSB2ST_KERNELS UPLO WANTZ-REF9882 TTYPE-REF9883 ST-REF9884 ED-REF9885
       SWEEP-REF9886 N-REF9887 NB-REF9888 IB-REF9889 A-REF9890 LDA-REF9891
       V-REF9892 TAU-REF9893 LDVT-REF9894 WORK-REF9895))))

(CFFI:DEFCFUN ("dsbev_" %%DSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9898 ':INT32) (KD-REF9899 ':INT32)
                              (LDAB-REF9901 ':INT32) (LDZ-REF9904 ':INT32)
                              (INFO-REF9906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9898 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9899 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9901 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9904 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9906 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9900 AB) (W-REF9902 W)
                                            (Z-REF9903 Z) (WORK-REF9905 WORK))
      (%%DSBEV JOBZ UPLO N-REF9898 KD-REF9899 AB-REF9900 LDAB-REF9901 W-REF9902
       Z-REF9903 LDZ-REF9904 WORK-REF9905 INFO-REF9906))))

(CFFI:DEFCFUN ("dsbev_2stage_" %%DSBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9909 ':INT32) (KD-REF9910 ':INT32)
                              (LDAB-REF9912 ':INT32) (LDZ-REF9915 ':INT32)
                              (LWORK-REF9917 ':INT32) (INFO-REF9918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9909 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9910 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9912 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9915 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9917 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9911 AB) (W-REF9913 W)
                                            (Z-REF9914 Z) (WORK-REF9916 WORK))
      (%%DSBEV_2STAGE JOBZ UPLO N-REF9909 KD-REF9910 AB-REF9911 LDAB-REF9912
       W-REF9913 Z-REF9914 LDZ-REF9915 WORK-REF9916 LWORK-REF9917
       INFO-REF9918))))

(CFFI:DEFCFUN ("dsbevd_" %%DSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9921 ':INT32) (KD-REF9922 ':INT32)
                              (LDAB-REF9924 ':INT32) (LDZ-REF9927 ':INT32)
                              (LWORK-REF9929 ':INT32) (LIWORK-REF9931 ':INT32)
                              (INFO-REF9932 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9921 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9922 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9924 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9927 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9929 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9931 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9932 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9923 AB) (W-REF9925 W)
                                            (Z-REF9926 Z) (WORK-REF9928 WORK)
                                            (IWORK-REF9930 IWORK))
      (%%DSBEVD JOBZ UPLO N-REF9921 KD-REF9922 AB-REF9923 LDAB-REF9924
       W-REF9925 Z-REF9926 LDZ-REF9927 WORK-REF9928 LWORK-REF9929 IWORK-REF9930
       LIWORK-REF9931 INFO-REF9932))))

(CFFI:DEFCFUN ("dsbevd_2stage_" %%DSBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9935 ':INT32) (KD-REF9936 ':INT32)
                              (LDAB-REF9938 ':INT32) (LDZ-REF9941 ':INT32)
                              (LWORK-REF9943 ':INT32) (LIWORK-REF9945 ':INT32)
                              (INFO-REF9946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9936 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9938 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9941 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9943 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9945 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9946 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9937 AB) (W-REF9939 W)
                                            (Z-REF9940 Z) (WORK-REF9942 WORK)
                                            (IWORK-REF9944 IWORK))
      (%%DSBEVD_2STAGE JOBZ UPLO N-REF9935 KD-REF9936 AB-REF9937 LDAB-REF9938
       W-REF9939 Z-REF9940 LDZ-REF9941 WORK-REF9942 LWORK-REF9943 IWORK-REF9944
       LIWORK-REF9945 INFO-REF9946))))

(CFFI:DEFCFUN ("dsbevx_" %%DSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9950 ':INT32) (KD-REF9951 ':INT32)
                              (LDAB-REF9953 ':INT32) (LDQ-REF9955 ':INT32)
                              (VL-REF9956 ':DOUBLE) (VU-REF9957 ':DOUBLE)
                              (IL-REF9958 ':INT32) (IU-REF9959 ':INT32)
                              (ABSTOL-REF9960 ':DOUBLE) (M-REF9961 ':INT32)
                              (LDZ-REF9964 ':INT32) (INFO-REF9968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9951 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9953 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9955 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9956 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9957 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9958 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9959 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9960 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9961 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9964 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9968 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9952 AB) (Q-REF9954 Q)
                                            (W-REF9962 W) (Z-REF9963 Z)
                                            (WORK-REF9965 WORK)
                                            (IWORK-REF9966 IWORK)
                                            (IFAIL-REF9967 IFAIL))
      (%%DSBEVX JOBZ RANGE UPLO N-REF9950 KD-REF9951 AB-REF9952 LDAB-REF9953
       Q-REF9954 LDQ-REF9955 VL-REF9956 VU-REF9957 IL-REF9958 IU-REF9959
       ABSTOL-REF9960 M-REF9961 W-REF9962 Z-REF9963 LDZ-REF9964 WORK-REF9965
       IWORK-REF9966 IFAIL-REF9967 INFO-REF9968))))

(CFFI:DEFCFUN ("dsbevx_2stage_" %%DSBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9972 ':INT32) (KD-REF9973 ':INT32)
                              (LDAB-REF9975 ':INT32) (LDQ-REF9977 ':INT32)
                              (VL-REF9978 ':DOUBLE) (VU-REF9979 ':DOUBLE)
                              (IL-REF9980 ':INT32) (IU-REF9981 ':INT32)
                              (ABSTOL-REF9982 ':DOUBLE) (M-REF9983 ':INT32)
                              (LDZ-REF9986 ':INT32) (LWORK-REF9988 ':INT32)
                              (INFO-REF9991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9972 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9973 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9975 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9977 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9978 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9979 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9980 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9981 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9982 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9983 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9986 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9988 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9991 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9974 AB) (Q-REF9976 Q)
                                            (W-REF9984 W) (Z-REF9985 Z)
                                            (WORK-REF9987 WORK)
                                            (IWORK-REF9989 IWORK)
                                            (IFAIL-REF9990 IFAIL))
      (%%DSBEVX_2STAGE JOBZ RANGE UPLO N-REF9972 KD-REF9973 AB-REF9974
       LDAB-REF9975 Q-REF9976 LDQ-REF9977 VL-REF9978 VU-REF9979 IL-REF9980
       IU-REF9981 ABSTOL-REF9982 M-REF9983 W-REF9984 Z-REF9985 LDZ-REF9986
       WORK-REF9987 LWORK-REF9988 IWORK-REF9989 IFAIL-REF9990 INFO-REF9991))))

(CFFI:DEFCFUN ("dsbgst_" %%DSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGST (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9994 ':INT32) (KA-REF9995 ':INT32)
                              (KB-REF9996 ':INT32) (LDAB-REF9998 ':INT32)
                              (LDBB-REF10000 ':INT32) (LDX-REF10002 ':INT32)
                              (INFO-REF10004 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9994 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF9995 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF9996 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9998 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10000 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10002 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10004 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9997 AB) (BB-REF9999 BB)
                                            (X-REF10001 X) (WORK-REF10003 WORK))
      (%%DSBGST VECT UPLO N-REF9994 KA-REF9995 KB-REF9996 AB-REF9997
       LDAB-REF9998 BB-REF9999 LDBB-REF10000 X-REF10001 LDX-REF10002
       WORK-REF10003 INFO-REF10004))))

(CFFI:DEFCFUN ("dsbgv_" %%DSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGV (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10007 ':INT32) (KA-REF10008 ':INT32)
                              (KB-REF10009 ':INT32) (LDAB-REF10011 ':INT32)
                              (LDBB-REF10013 ':INT32) (LDZ-REF10016 ':INT32)
                              (INFO-REF10018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10008 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10009 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10011 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10013 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10016 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10010 AB) (BB-REF10012 BB)
                                            (W-REF10014 W) (Z-REF10015 Z)
                                            (WORK-REF10017 WORK))
      (%%DSBGV JOBZ UPLO N-REF10007 KA-REF10008 KB-REF10009 AB-REF10010
       LDAB-REF10011 BB-REF10012 LDBB-REF10013 W-REF10014 Z-REF10015
       LDZ-REF10016 WORK-REF10017 INFO-REF10018))))

(CFFI:DEFCFUN ("dsbgvd_" %%DSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK
                    LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10021 ':INT32) (KA-REF10022 ':INT32)
                              (KB-REF10023 ':INT32) (LDAB-REF10025 ':INT32)
                              (LDBB-REF10027 ':INT32) (LDZ-REF10030 ':INT32)
                              (LWORK-REF10032 ':INT32)
                              (LIWORK-REF10034 ':INT32) (INFO-REF10035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10022 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10023 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10025 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10027 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10030 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10032 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10034 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10035 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10024 AB) (BB-REF10026 BB)
                                            (W-REF10028 W) (Z-REF10029 Z)
                                            (WORK-REF10031 WORK)
                                            (IWORK-REF10033 IWORK))
      (%%DSBGVD JOBZ UPLO N-REF10021 KA-REF10022 KB-REF10023 AB-REF10024
       LDAB-REF10025 BB-REF10026 LDBB-REF10027 W-REF10028 Z-REF10029
       LDZ-REF10030 WORK-REF10031 LWORK-REF10032 IWORK-REF10033 LIWORK-REF10034
       INFO-REF10035))))

(CFFI:DEFCFUN ("dsbgvx_" %%DSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10039 ':INT32) (KA-REF10040 ':INT32)
                              (KB-REF10041 ':INT32) (LDAB-REF10043 ':INT32)
                              (LDBB-REF10045 ':INT32) (LDQ-REF10047 ':INT32)
                              (VL-REF10048 ':DOUBLE) (VU-REF10049 ':DOUBLE)
                              (IL-REF10050 ':INT32) (IU-REF10051 ':INT32)
                              (ABSTOL-REF10052 ':DOUBLE) (M-REF10053 ':INT32)
                              (LDZ-REF10056 ':INT32) (INFO-REF10060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10040 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10041 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10043 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10045 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10047 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10048 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10049 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10050 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10051 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10052 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10053 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10056 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10042 AB) (BB-REF10044 BB)
                                            (Q-REF10046 Q) (W-REF10054 W)
                                            (Z-REF10055 Z) (WORK-REF10057 WORK)
                                            (IWORK-REF10058 IWORK)
                                            (IFAIL-REF10059 IFAIL))
      (%%DSBGVX JOBZ RANGE UPLO N-REF10039 KA-REF10040 KB-REF10041 AB-REF10042
       LDAB-REF10043 BB-REF10044 LDBB-REF10045 Q-REF10046 LDQ-REF10047
       VL-REF10048 VU-REF10049 IL-REF10050 IU-REF10051 ABSTOL-REF10052
       M-REF10053 W-REF10054 Z-REF10055 LDZ-REF10056 WORK-REF10057
       IWORK-REF10058 IFAIL-REF10059 INFO-REF10060))))

(CFFI:DEFCFUN ("dsbtrd_" %%DSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10063 ':INT32) (KD-REF10064 ':INT32)
                              (LDAB-REF10066 ':INT32) (LDQ-REF10070 ':INT32)
                              (INFO-REF10072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10063 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10064 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10066 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10070 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10065 AB) (D-REF10067 D)
                                            (E-REF10068 E) (Q-REF10069 Q)
                                            (WORK-REF10071 WORK))
      (%%DSBTRD VECT UPLO N-REF10063 KD-REF10064 AB-REF10065 LDAB-REF10066
       D-REF10067 E-REF10068 Q-REF10069 LDQ-REF10070 WORK-REF10071
       INFO-REF10072))))

(CFFI:DEFCFUN ("dsfrk_" %%DSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %DSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10076 ':INT32) (K-REF10077 ':INT32)
                              (ALPHA-REF10078 ':DOUBLE) (LDA-REF10080 ':INT32)
                              (BETA-REF10081 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10077 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10078 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10080 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10081 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10079 A) (C-REF10082 C))
      (%%DSFRK TRANSR UPLO TRANS N-REF10076 K-REF10077 ALPHA-REF10078
       A-REF10079 LDA-REF10080 BETA-REF10081 C-REF10082))))

(CFFI:DEFCFUN ("dsgesv_" %%DSGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSGESV (N NRHS A LDA IPIV B LDB X LDX WORK SWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10083 ':INT32) (NRHS-REF10084 ':INT32)
                              (LDA-REF10086 ':INT32) (LDB-REF10089 ':INT32)
                              (LDX-REF10091 ':INT32) (ITER-REF10094 ':INT32)
                              (INFO-REF10095 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10083 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10084 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10089 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10091 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10094 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10095 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10085 A) (IPIV-REF10087 IPIV)
                                            (B-REF10088 B) (X-REF10090 X)
                                            (WORK-REF10092 WORK)
                                            (SWORK-REF10093 SWORK))
      (%%DSGESV N-REF10083 NRHS-REF10084 A-REF10085 LDA-REF10086 IPIV-REF10087
       B-REF10088 LDB-REF10089 X-REF10090 LDX-REF10091 WORK-REF10092
       SWORK-REF10093 ITER-REF10094 INFO-REF10095))))

(CFFI:DEFCFUN ("dspcon_" %%DSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10097 ':INT32) (ANORM-REF10100 ':DOUBLE)
                              (RCOND-REF10101 ':DOUBLE) (INFO-REF10104 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10100 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10101 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10104 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10098 AP)
                                            (IPIV-REF10099 IPIV)
                                            (WORK-REF10102 WORK)
                                            (IWORK-REF10103 IWORK))
      (%%DSPCON UPLO N-REF10097 AP-REF10098 IPIV-REF10099 ANORM-REF10100
       RCOND-REF10101 WORK-REF10102 IWORK-REF10103 INFO-REF10104))))

(CFFI:DEFCFUN ("dspev_" %%DSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10107 ':INT32) (LDZ-REF10111 ':INT32)
                              (INFO-REF10113 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10107 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10111 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10113 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10108 AP) (W-REF10109 W)
                                            (Z-REF10110 Z) (WORK-REF10112 WORK))
      (%%DSPEV JOBZ UPLO N-REF10107 AP-REF10108 W-REF10109 Z-REF10110
       LDZ-REF10111 WORK-REF10112 INFO-REF10113))))

(CFFI:DEFCFUN ("dspevd_" %%DSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10116 ':INT32) (LDZ-REF10120 ':INT32)
                              (LWORK-REF10122 ':INT32)
                              (LIWORK-REF10124 ':INT32) (INFO-REF10125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10116 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10120 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10122 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10124 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10117 AP) (W-REF10118 W)
                                            (Z-REF10119 Z) (WORK-REF10121 WORK)
                                            (IWORK-REF10123 IWORK))
      (%%DSPEVD JOBZ UPLO N-REF10116 AP-REF10117 W-REF10118 Z-REF10119
       LDZ-REF10120 WORK-REF10121 LWORK-REF10122 IWORK-REF10123 LIWORK-REF10124
       INFO-REF10125))))

(CFFI:DEFCFUN ("dspevx_" %%DSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10129 ':INT32) (VL-REF10131 ':DOUBLE)
                              (VU-REF10132 ':DOUBLE) (IL-REF10133 ':INT32)
                              (IU-REF10134 ':INT32) (ABSTOL-REF10135 ':DOUBLE)
                              (M-REF10136 ':INT32) (LDZ-REF10139 ':INT32)
                              (INFO-REF10143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10131 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10132 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10133 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10134 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10135 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10136 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10139 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10130 AP) (W-REF10137 W)
                                            (Z-REF10138 Z) (WORK-REF10140 WORK)
                                            (IWORK-REF10141 IWORK)
                                            (IFAIL-REF10142 IFAIL))
      (%%DSPEVX JOBZ RANGE UPLO N-REF10129 AP-REF10130 VL-REF10131 VU-REF10132
       IL-REF10133 IU-REF10134 ABSTOL-REF10135 M-REF10136 W-REF10137 Z-REF10138
       LDZ-REF10139 WORK-REF10140 IWORK-REF10141 IFAIL-REF10142
       INFO-REF10143))))

(CFFI:DEFCFUN ("dspgst_" %%DSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10144 ':INT32) (N-REF10146 ':INT32)
                              (INFO-REF10149 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10144 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10149 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10147 AP) (BP-REF10148 BP))
      (%%DSPGST ITYPE-REF10144 UPLO N-REF10146 AP-REF10147 BP-REF10148
       INFO-REF10149))))

(CFFI:DEFCFUN ("dspgv_" %%DSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10150 ':INT32) (N-REF10153 ':INT32)
                              (LDZ-REF10158 ':INT32) (INFO-REF10160 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10150 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10158 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10160 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10154 AP) (BP-REF10155 BP)
                                            (W-REF10156 W) (Z-REF10157 Z)
                                            (WORK-REF10159 WORK))
      (%%DSPGV ITYPE-REF10150 JOBZ UPLO N-REF10153 AP-REF10154 BP-REF10155
       W-REF10156 Z-REF10157 LDZ-REF10158 WORK-REF10159 INFO-REF10160))))

(CFFI:DEFCFUN ("dspgvd_" %%DSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10161 ':INT32) (N-REF10164 ':INT32)
                              (LDZ-REF10169 ':INT32) (LWORK-REF10171 ':INT32)
                              (LIWORK-REF10173 ':INT32) (INFO-REF10174 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10161 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10164 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10169 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10171 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10173 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10174 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10165 AP) (BP-REF10166 BP)
                                            (W-REF10167 W) (Z-REF10168 Z)
                                            (WORK-REF10170 WORK)
                                            (IWORK-REF10172 IWORK))
      (%%DSPGVD ITYPE-REF10161 JOBZ UPLO N-REF10164 AP-REF10165 BP-REF10166
       W-REF10167 Z-REF10168 LDZ-REF10169 WORK-REF10170 LWORK-REF10171
       IWORK-REF10172 LIWORK-REF10173 INFO-REF10174))))

(CFFI:DEFCFUN ("dspgvx_" %%DSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10175 ':INT32) (N-REF10179 ':INT32)
                              (VL-REF10182 ':DOUBLE) (VU-REF10183 ':DOUBLE)
                              (IL-REF10184 ':INT32) (IU-REF10185 ':INT32)
                              (ABSTOL-REF10186 ':DOUBLE) (M-REF10187 ':INT32)
                              (LDZ-REF10190 ':INT32) (INFO-REF10194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10175 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10182 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10183 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10184 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10185 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10186 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10187 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10190 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10180 AP) (BP-REF10181 BP)
                                            (W-REF10188 W) (Z-REF10189 Z)
                                            (WORK-REF10191 WORK)
                                            (IWORK-REF10192 IWORK)
                                            (IFAIL-REF10193 IFAIL))
      (%%DSPGVX ITYPE-REF10175 JOBZ RANGE UPLO N-REF10179 AP-REF10180
       BP-REF10181 VL-REF10182 VU-REF10183 IL-REF10184 IU-REF10185
       ABSTOL-REF10186 M-REF10187 W-REF10188 Z-REF10189 LDZ-REF10190
       WORK-REF10191 IWORK-REF10192 IFAIL-REF10193 INFO-REF10194))))

(CFFI:DEFCFUN ("dsposv_" %%DSPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPOSV (UPLO N NRHS A LDA B LDB X LDX WORK SWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10196 ':INT32) (NRHS-REF10197 ':INT32)
                              (LDA-REF10199 ':INT32) (LDB-REF10201 ':INT32)
                              (LDX-REF10203 ':INT32) (ITER-REF10206 ':INT32)
                              (INFO-REF10207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10196 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10197 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10199 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10201 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10203 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10206 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10207 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10198 A) (B-REF10200 B)
                                            (X-REF10202 X) (WORK-REF10204 WORK)
                                            (SWORK-REF10205 SWORK))
      (%%DSPOSV UPLO N-REF10196 NRHS-REF10197 A-REF10198 LDA-REF10199
       B-REF10200 LDB-REF10201 X-REF10202 LDX-REF10203 WORK-REF10204
       SWORK-REF10205 ITER-REF10206 INFO-REF10207))))

(CFFI:DEFCFUN ("dsprfs_" %%DSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10209 ':INT32) (NRHS-REF10210 ':INT32)
                              (LDB-REF10215 ':INT32) (LDX-REF10217 ':INT32)
                              (INFO-REF10222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10210 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10215 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10217 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10222 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10211 AP) (AFP-REF10212 AFP)
                                            (IPIV-REF10213 IPIV) (B-REF10214 B)
                                            (X-REF10216 X) (FERR-REF10218 FERR)
                                            (BERR-REF10219 BERR)
                                            (WORK-REF10220 WORK)
                                            (IWORK-REF10221 IWORK))
      (%%DSPRFS UPLO N-REF10209 NRHS-REF10210 AP-REF10211 AFP-REF10212
       IPIV-REF10213 B-REF10214 LDB-REF10215 X-REF10216 LDX-REF10217
       FERR-REF10218 BERR-REF10219 WORK-REF10220 IWORK-REF10221
       INFO-REF10222))))

(CFFI:DEFCFUN ("dspsv_" %%DSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10224 ':INT32) (NRHS-REF10225 ':INT32)
                              (LDB-REF10229 ':INT32) (INFO-REF10230 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10225 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10229 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10230 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10226 AP)
                                            (IPIV-REF10227 IPIV) (B-REF10228 B))
      (%%DSPSV UPLO N-REF10224 NRHS-REF10225 AP-REF10226 IPIV-REF10227
       B-REF10228 LDB-REF10229 INFO-REF10230))))

(CFFI:DEFCFUN ("dspsvx_" %%DSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10233 ':INT32) (NRHS-REF10234 ':INT32)
                              (LDB-REF10239 ':INT32) (LDX-REF10241 ':INT32)
                              (RCOND-REF10242 ':DOUBLE) (INFO-REF10247 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10233 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10234 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10239 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10241 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10242 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10247 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10235 AP) (AFP-REF10236 AFP)
                                            (IPIV-REF10237 IPIV) (B-REF10238 B)
                                            (X-REF10240 X) (FERR-REF10243 FERR)
                                            (BERR-REF10244 BERR)
                                            (WORK-REF10245 WORK)
                                            (IWORK-REF10246 IWORK))
      (%%DSPSVX FACT UPLO N-REF10233 NRHS-REF10234 AP-REF10235 AFP-REF10236
       IPIV-REF10237 B-REF10238 LDB-REF10239 X-REF10240 LDX-REF10241
       RCOND-REF10242 FERR-REF10243 BERR-REF10244 WORK-REF10245 IWORK-REF10246
       INFO-REF10247))))

(CFFI:DEFCFUN ("dsptrd_" %%DSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10249 ':INT32) (INFO-REF10254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10249 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10250 AP) (D-REF10251 D)
                                            (E-REF10252 E) (TAU-REF10253 TAU))
      (%%DSPTRD UPLO N-REF10249 AP-REF10250 D-REF10251 E-REF10252 TAU-REF10253
       INFO-REF10254))))

(CFFI:DEFCFUN ("dsptrf_" %%DSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10256 ':INT32) (INFO-REF10259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10257 AP)
                                            (IPIV-REF10258 IPIV))
      (%%DSPTRF UPLO N-REF10256 AP-REF10257 IPIV-REF10258 INFO-REF10259))))

(CFFI:DEFCFUN ("dsptri_" %%DSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10261 ':INT32) (INFO-REF10265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10265 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10262 AP)
                                            (IPIV-REF10263 IPIV)
                                            (WORK-REF10264 WORK))
      (%%DSPTRI UPLO N-REF10261 AP-REF10262 IPIV-REF10263 WORK-REF10264
       INFO-REF10265))))

(CFFI:DEFCFUN ("dsptrs_" %%DSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10267 ':INT32) (NRHS-REF10268 ':INT32)
                              (LDB-REF10272 ':INT32) (INFO-REF10273 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10268 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10272 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10273 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10269 AP)
                                            (IPIV-REF10270 IPIV) (B-REF10271 B))
      (%%DSPTRS UPLO N-REF10267 NRHS-REF10268 AP-REF10269 IPIV-REF10270
       B-REF10271 LDB-REF10272 INFO-REF10273))))

(CFFI:DEFCFUN ("dstebz_" %%DSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (NSPLIT :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEBZ
                   (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK
                    ISPLIT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10276 ':INT32) (VL-REF10277 ':DOUBLE)
                              (VU-REF10278 ':DOUBLE) (IL-REF10279 ':INT32)
                              (IU-REF10280 ':INT32) (ABSTOL-REF10281 ':DOUBLE)
                              (M-REF10284 ':INT32) (NSPLIT-REF10285 ':INT32)
                              (INFO-REF10291 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10277 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10278 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10279 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10280 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10281 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10284 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF10285 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10291 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10282 D) (E-REF10283 E)
                                            (W-REF10286 W)
                                            (IBLOCK-REF10287 IBLOCK)
                                            (ISPLIT-REF10288 ISPLIT)
                                            (WORK-REF10289 WORK)
                                            (IWORK-REF10290 IWORK))
      (%%DSTEBZ RANGE ORDER N-REF10276 VL-REF10277 VU-REF10278 IL-REF10279
       IU-REF10280 ABSTOL-REF10281 D-REF10282 E-REF10283 M-REF10284
       NSPLIT-REF10285 W-REF10286 IBLOCK-REF10287 ISPLIT-REF10288 WORK-REF10289
       IWORK-REF10290 INFO-REF10291))))

(CFFI:DEFCFUN ("dstedc_" %%DSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEDC (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10293 ':INT32) (LDZ-REF10297 ':INT32)
                              (LWORK-REF10299 ':INT32)
                              (LIWORK-REF10301 ':INT32) (INFO-REF10302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10293 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10297 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10299 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10301 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10302 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10294 D) (E-REF10295 E)
                                            (Z-REF10296 Z) (WORK-REF10298 WORK)
                                            (IWORK-REF10300 IWORK))
      (%%DSTEDC COMPZ N-REF10293 D-REF10294 E-REF10295 Z-REF10296 LDZ-REF10297
       WORK-REF10298 LWORK-REF10299 IWORK-REF10300 LIWORK-REF10301
       INFO-REF10302))))

(CFFI:DEFCFUN ("dstegr_" %%DSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10305 ':INT32) (VL-REF10308 ':DOUBLE)
                              (VU-REF10309 ':DOUBLE) (IL-REF10310 ':INT32)
                              (IU-REF10311 ':INT32) (ABSTOL-REF10312 ':DOUBLE)
                              (M-REF10313 ':INT32) (LDZ-REF10316 ':INT32)
                              (LWORK-REF10319 ':INT32)
                              (LIWORK-REF10321 ':INT32) (INFO-REF10322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10305 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10308 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10309 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10310 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10311 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10312 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10313 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10316 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10319 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10321 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10306 D) (E-REF10307 E)
                                            (W-REF10314 W) (Z-REF10315 Z)
                                            (ISUPPZ-REF10317 ISUPPZ)
                                            (WORK-REF10318 WORK)
                                            (IWORK-REF10320 IWORK))
      (%%DSTEGR JOBZ RANGE N-REF10305 D-REF10306 E-REF10307 VL-REF10308
       VU-REF10309 IL-REF10310 IU-REF10311 ABSTOL-REF10312 M-REF10313
       W-REF10314 Z-REF10315 LDZ-REF10316 ISUPPZ-REF10317 WORK-REF10318
       LWORK-REF10319 IWORK-REF10320 LIWORK-REF10321 INFO-REF10322))))

(CFFI:DEFCFUN ("dstein_" %%DSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10323 ':INT32) (M-REF10326 ':INT32)
                              (LDZ-REF10331 ':INT32) (INFO-REF10335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10326 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10331 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10324 D) (E-REF10325 E)
                                            (W-REF10327 W)
                                            (IBLOCK-REF10328 IBLOCK)
                                            (ISPLIT-REF10329 ISPLIT)
                                            (Z-REF10330 Z) (WORK-REF10332 WORK)
                                            (IWORK-REF10333 IWORK)
                                            (IFAIL-REF10334 IFAIL))
      (%%DSTEIN N-REF10323 D-REF10324 E-REF10325 M-REF10326 W-REF10327
       IBLOCK-REF10328 ISPLIT-REF10329 Z-REF10330 LDZ-REF10331 WORK-REF10332
       IWORK-REF10333 IFAIL-REF10334 INFO-REF10335))))

(CFFI:DEFCFUN ("dstemr_" %%DSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10338 ':INT32) (VL-REF10341 ':DOUBLE)
                              (VU-REF10342 ':DOUBLE) (IL-REF10343 ':INT32)
                              (IU-REF10344 ':INT32) (M-REF10345 ':INT32)
                              (LDZ-REF10348 ':INT32) (NZC-REF10349 ':INT32)
                              (TRYRAC-REF10351 ':INT32)
                              (LWORK-REF10353 ':INT32)
                              (LIWORK-REF10355 ':INT32) (INFO-REF10356 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10341 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10342 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10343 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10344 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10345 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10348 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF10349 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF10351 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10353 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10355 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10356 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10339 D) (E-REF10340 E)
                                            (W-REF10346 W) (Z-REF10347 Z)
                                            (ISUPPZ-REF10350 ISUPPZ)
                                            (WORK-REF10352 WORK)
                                            (IWORK-REF10354 IWORK))
      (%%DSTEMR JOBZ RANGE N-REF10338 D-REF10339 E-REF10340 VL-REF10341
       VU-REF10342 IL-REF10343 IU-REF10344 M-REF10345 W-REF10346 Z-REF10347
       LDZ-REF10348 NZC-REF10349 ISUPPZ-REF10350 TRYRAC-REF10351 WORK-REF10352
       LWORK-REF10353 IWORK-REF10354 LIWORK-REF10355 INFO-REF10356))))

(CFFI:DEFCFUN ("dsteqr_" %%DSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10358 ':INT32) (LDZ-REF10362 ':INT32)
                              (INFO-REF10364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10358 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10362 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10364 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10359 D) (E-REF10360 E)
                                            (Z-REF10361 Z) (WORK-REF10363 WORK))
      (%%DSTEQR COMPZ N-REF10358 D-REF10359 E-REF10360 Z-REF10361 LDZ-REF10362
       WORK-REF10363 INFO-REF10364))))

(CFFI:DEFCFUN ("dsterf_" %%DSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTERF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10365 ':INT32) (INFO-REF10368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10366 D) (E-REF10367 E))
      (%%DSTERF N-REF10365 D-REF10366 E-REF10367 INFO-REF10368))))

(CFFI:DEFCFUN ("dstev_" %%DSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10370 ':INT32) (LDZ-REF10374 ':INT32)
                              (INFO-REF10376 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10374 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10376 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10371 D) (E-REF10372 E)
                                            (Z-REF10373 Z) (WORK-REF10375 WORK))
      (%%DSTEV JOBZ N-REF10370 D-REF10371 E-REF10372 Z-REF10373 LDZ-REF10374
       WORK-REF10375 INFO-REF10376))))

(CFFI:DEFCFUN ("dstevd_" %%DSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVD (JOBZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10378 ':INT32) (LDZ-REF10382 ':INT32)
                              (LWORK-REF10384 ':INT32)
                              (LIWORK-REF10386 ':INT32) (INFO-REF10387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10378 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10382 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10384 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10386 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10379 D) (E-REF10380 E)
                                            (Z-REF10381 Z) (WORK-REF10383 WORK)
                                            (IWORK-REF10385 IWORK))
      (%%DSTEVD JOBZ N-REF10378 D-REF10379 E-REF10380 Z-REF10381 LDZ-REF10382
       WORK-REF10383 LWORK-REF10384 IWORK-REF10385 LIWORK-REF10386
       INFO-REF10387))))

(CFFI:DEFCFUN ("dstevr_" %%DSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10390 ':INT32) (VL-REF10393 ':DOUBLE)
                              (VU-REF10394 ':DOUBLE) (IL-REF10395 ':INT32)
                              (IU-REF10396 ':INT32) (ABSTOL-REF10397 ':DOUBLE)
                              (M-REF10398 ':INT32) (LDZ-REF10401 ':INT32)
                              (LWORK-REF10404 ':INT32)
                              (LIWORK-REF10406 ':INT32) (INFO-REF10407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10390 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10393 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10394 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10395 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10396 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10397 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10398 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10401 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10404 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10406 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10391 D) (E-REF10392 E)
                                            (W-REF10399 W) (Z-REF10400 Z)
                                            (ISUPPZ-REF10402 ISUPPZ)
                                            (WORK-REF10403 WORK)
                                            (IWORK-REF10405 IWORK))
      (%%DSTEVR JOBZ RANGE N-REF10390 D-REF10391 E-REF10392 VL-REF10393
       VU-REF10394 IL-REF10395 IU-REF10396 ABSTOL-REF10397 M-REF10398
       W-REF10399 Z-REF10400 LDZ-REF10401 ISUPPZ-REF10402 WORK-REF10403
       LWORK-REF10404 IWORK-REF10405 LIWORK-REF10406 INFO-REF10407))))

(CFFI:DEFCFUN ("dstevx_" %%DSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVX
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK
                    IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10410 ':INT32) (VL-REF10413 ':DOUBLE)
                              (VU-REF10414 ':DOUBLE) (IL-REF10415 ':INT32)
                              (IU-REF10416 ':INT32) (ABSTOL-REF10417 ':DOUBLE)
                              (M-REF10418 ':INT32) (LDZ-REF10421 ':INT32)
                              (INFO-REF10425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10410 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10413 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10414 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10415 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10416 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10417 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10418 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10421 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10425 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10411 D) (E-REF10412 E)
                                            (W-REF10419 W) (Z-REF10420 Z)
                                            (WORK-REF10422 WORK)
                                            (IWORK-REF10423 IWORK)
                                            (IFAIL-REF10424 IFAIL))
      (%%DSTEVX JOBZ RANGE N-REF10410 D-REF10411 E-REF10412 VL-REF10413
       VU-REF10414 IL-REF10415 IU-REF10416 ABSTOL-REF10417 M-REF10418
       W-REF10419 Z-REF10420 LDZ-REF10421 WORK-REF10422 IWORK-REF10423
       IFAIL-REF10424 INFO-REF10425))))

(CFFI:DEFCFUN ("dsycon_" %%DSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10427 ':INT32) (LDA-REF10429 ':INT32)
                              (ANORM-REF10431 ':DOUBLE)
                              (RCOND-REF10432 ':DOUBLE) (INFO-REF10435 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10427 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10429 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10431 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10432 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10435 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10428 A) (IPIV-REF10430 IPIV)
                                            (WORK-REF10433 WORK)
                                            (IWORK-REF10434 IWORK))
      (%%DSYCON UPLO N-REF10427 A-REF10428 LDA-REF10429 IPIV-REF10430
       ANORM-REF10431 RCOND-REF10432 WORK-REF10433 IWORK-REF10434
       INFO-REF10435))))

(CFFI:DEFCFUN ("dsycon_3_" %%DSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10437 ':INT32) (LDA-REF10439 ':INT32)
                              (ANORM-REF10442 ':DOUBLE)
                              (RCOND-REF10443 ':DOUBLE) (INFO-REF10446 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10437 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10439 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10442 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10443 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10446 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10438 A) (E-REF10440 E)
                                            (IPIV-REF10441 IPIV)
                                            (WORK-REF10444 WORK)
                                            (IWORK-REF10445 IWORK))
      (%%DSYCON_3 UPLO N-REF10437 A-REF10438 LDA-REF10439 E-REF10440
       IPIV-REF10441 ANORM-REF10442 RCOND-REF10443 WORK-REF10444 IWORK-REF10445
       INFO-REF10446))))

(CFFI:DEFCFUN ("dsycon_rook_" %%DSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10448 ':INT32) (LDA-REF10450 ':INT32)
                              (ANORM-REF10452 ':DOUBLE)
                              (RCOND-REF10453 ':DOUBLE) (INFO-REF10456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10450 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10452 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10453 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10449 A) (IPIV-REF10451 IPIV)
                                            (WORK-REF10454 WORK)
                                            (IWORK-REF10455 IWORK))
      (%%DSYCON_ROOK UPLO N-REF10448 A-REF10449 LDA-REF10450 IPIV-REF10451
       ANORM-REF10452 RCOND-REF10453 WORK-REF10454 IWORK-REF10455
       INFO-REF10456))))

(CFFI:DEFCFUN ("dsyconv_" %%DSYCONV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10459 ':INT32) (LDA-REF10461 ':INT32)
                              (INFO-REF10464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10459 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10461 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10460 A) (IPIV-REF10462 IPIV)
                                            (E-REF10463 E))
      (%%DSYCONV UPLO WAY N-REF10459 A-REF10460 LDA-REF10461 IPIV-REF10462
       E-REF10463 INFO-REF10464))))

(CFFI:DEFCFUN ("dsyconvf_" %%DSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10467 ':INT32) (LDA-REF10469 ':INT32)
                              (INFO-REF10472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10467 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10469 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10468 A) (E-REF10470 E)
                                            (IPIV-REF10471 IPIV))
      (%%DSYCONVF UPLO WAY N-REF10467 A-REF10468 LDA-REF10469 E-REF10470
       IPIV-REF10471 INFO-REF10472))))

(CFFI:DEFCFUN ("dsyconvf_rook_" %%DSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10475 ':INT32) (LDA-REF10477 ':INT32)
                              (INFO-REF10480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10475 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10477 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10476 A) (E-REF10478 E)
                                            (IPIV-REF10479 IPIV))
      (%%DSYCONVF_ROOK UPLO WAY N-REF10475 A-REF10476 LDA-REF10477 E-REF10478
       IPIV-REF10479 INFO-REF10480))))

(CFFI:DEFCFUN ("dsyequb_" %%DSYEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10482 ':INT32) (LDA-REF10484 ':INT32)
                              (SCOND-REF10486 ':DOUBLE)
                              (AMAX-REF10487 ':DOUBLE) (INFO-REF10489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF10486 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF10487 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10483 A) (S-REF10485 S)
                                            (WORK-REF10488 WORK))
      (%%DSYEQUB UPLO N-REF10482 A-REF10483 LDA-REF10484 S-REF10485
       SCOND-REF10486 AMAX-REF10487 WORK-REF10488 INFO-REF10489))))

(CFFI:DEFCFUN ("dsyev_" %%DSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10492 ':INT32) (LDA-REF10494 ':INT32)
                              (LWORK-REF10497 ':INT32) (INFO-REF10498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10497 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10493 A) (W-REF10495 W)
                                            (WORK-REF10496 WORK))
      (%%DSYEV JOBZ UPLO N-REF10492 A-REF10493 LDA-REF10494 W-REF10495
       WORK-REF10496 LWORK-REF10497 INFO-REF10498))))

(CFFI:DEFCFUN ("dsyev_2stage_" %%DSYEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10501 ':INT32) (LDA-REF10503 ':INT32)
                              (LWORK-REF10506 ':INT32) (INFO-REF10507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10506 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10502 A) (W-REF10504 W)
                                            (WORK-REF10505 WORK))
      (%%DSYEV_2STAGE JOBZ UPLO N-REF10501 A-REF10502 LDA-REF10503 W-REF10504
       WORK-REF10505 LWORK-REF10506 INFO-REF10507))))

(CFFI:DEFCFUN ("dsyevd_" %%DSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVD (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10510 ':INT32) (LDA-REF10512 ':INT32)
                              (LWORK-REF10515 ':INT32)
                              (LIWORK-REF10517 ':INT32) (INFO-REF10518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10515 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10517 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10511 A) (W-REF10513 W)
                                            (WORK-REF10514 WORK)
                                            (IWORK-REF10516 IWORK))
      (%%DSYEVD JOBZ UPLO N-REF10510 A-REF10511 LDA-REF10512 W-REF10513
       WORK-REF10514 LWORK-REF10515 IWORK-REF10516 LIWORK-REF10517
       INFO-REF10518))))

(CFFI:DEFCFUN ("dsyevd_2stage_" %%DSYEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10521 ':INT32) (LDA-REF10523 ':INT32)
                              (LWORK-REF10526 ':INT32)
                              (LIWORK-REF10528 ':INT32) (INFO-REF10529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10523 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10526 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10528 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10522 A) (W-REF10524 W)
                                            (WORK-REF10525 WORK)
                                            (IWORK-REF10527 IWORK))
      (%%DSYEVD_2STAGE JOBZ UPLO N-REF10521 A-REF10522 LDA-REF10523 W-REF10524
       WORK-REF10525 LWORK-REF10526 IWORK-REF10527 LIWORK-REF10528
       INFO-REF10529))))

(CFFI:DEFCFUN ("dsyevr_" %%DSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10533 ':INT32) (LDA-REF10535 ':INT32)
                              (VL-REF10536 ':DOUBLE) (VU-REF10537 ':DOUBLE)
                              (IL-REF10538 ':INT32) (IU-REF10539 ':INT32)
                              (ABSTOL-REF10540 ':DOUBLE) (M-REF10541 ':INT32)
                              (LDZ-REF10544 ':INT32) (LWORK-REF10547 ':INT32)
                              (LIWORK-REF10549 ':INT32) (INFO-REF10550 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10533 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10535 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10536 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10537 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10538 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10539 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10540 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10541 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10544 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10547 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10549 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10550 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10534 A) (W-REF10542 W)
                                            (Z-REF10543 Z)
                                            (ISUPPZ-REF10545 ISUPPZ)
                                            (WORK-REF10546 WORK)
                                            (IWORK-REF10548 IWORK))
      (%%DSYEVR JOBZ RANGE UPLO N-REF10533 A-REF10534 LDA-REF10535 VL-REF10536
       VU-REF10537 IL-REF10538 IU-REF10539 ABSTOL-REF10540 M-REF10541
       W-REF10542 Z-REF10543 LDZ-REF10544 ISUPPZ-REF10545 WORK-REF10546
       LWORK-REF10547 IWORK-REF10548 LIWORK-REF10549 INFO-REF10550))))

(CFFI:DEFCFUN ("dsyevr_2stage_" %%DSYEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10554 ':INT32) (LDA-REF10556 ':INT32)
                              (VL-REF10557 ':DOUBLE) (VU-REF10558 ':DOUBLE)
                              (IL-REF10559 ':INT32) (IU-REF10560 ':INT32)
                              (ABSTOL-REF10561 ':DOUBLE) (M-REF10562 ':INT32)
                              (LDZ-REF10565 ':INT32) (LWORK-REF10568 ':INT32)
                              (LIWORK-REF10570 ':INT32) (INFO-REF10571 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10556 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10557 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10558 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10559 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10560 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10561 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10562 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10565 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10568 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10570 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10571 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10555 A) (W-REF10563 W)
                                            (Z-REF10564 Z)
                                            (ISUPPZ-REF10566 ISUPPZ)
                                            (WORK-REF10567 WORK)
                                            (IWORK-REF10569 IWORK))
      (%%DSYEVR_2STAGE JOBZ RANGE UPLO N-REF10554 A-REF10555 LDA-REF10556
       VL-REF10557 VU-REF10558 IL-REF10559 IU-REF10560 ABSTOL-REF10561
       M-REF10562 W-REF10563 Z-REF10564 LDZ-REF10565 ISUPPZ-REF10566
       WORK-REF10567 LWORK-REF10568 IWORK-REF10569 LIWORK-REF10570
       INFO-REF10571))))

(CFFI:DEFCFUN ("dsyevx_" %%DSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10575 ':INT32) (LDA-REF10577 ':INT32)
                              (VL-REF10578 ':DOUBLE) (VU-REF10579 ':DOUBLE)
                              (IL-REF10580 ':INT32) (IU-REF10581 ':INT32)
                              (ABSTOL-REF10582 ':DOUBLE) (M-REF10583 ':INT32)
                              (LDZ-REF10586 ':INT32) (LWORK-REF10588 ':INT32)
                              (INFO-REF10591 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10575 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10577 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10578 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10579 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10580 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10581 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10582 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10583 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10586 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10588 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10591 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10576 A) (W-REF10584 W)
                                            (Z-REF10585 Z) (WORK-REF10587 WORK)
                                            (IWORK-REF10589 IWORK)
                                            (IFAIL-REF10590 IFAIL))
      (%%DSYEVX JOBZ RANGE UPLO N-REF10575 A-REF10576 LDA-REF10577 VL-REF10578
       VU-REF10579 IL-REF10580 IU-REF10581 ABSTOL-REF10582 M-REF10583
       W-REF10584 Z-REF10585 LDZ-REF10586 WORK-REF10587 LWORK-REF10588
       IWORK-REF10589 IFAIL-REF10590 INFO-REF10591))))

(CFFI:DEFCFUN ("dsyevx_2stage_" %%DSYEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10595 ':INT32) (LDA-REF10597 ':INT32)
                              (VL-REF10598 ':DOUBLE) (VU-REF10599 ':DOUBLE)
                              (IL-REF10600 ':INT32) (IU-REF10601 ':INT32)
                              (ABSTOL-REF10602 ':DOUBLE) (M-REF10603 ':INT32)
                              (LDZ-REF10606 ':INT32) (LWORK-REF10608 ':INT32)
                              (INFO-REF10611 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10595 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10597 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10598 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10599 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10600 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10601 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10602 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10603 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10606 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10608 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10611 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10596 A) (W-REF10604 W)
                                            (Z-REF10605 Z) (WORK-REF10607 WORK)
                                            (IWORK-REF10609 IWORK)
                                            (IFAIL-REF10610 IFAIL))
      (%%DSYEVX_2STAGE JOBZ RANGE UPLO N-REF10595 A-REF10596 LDA-REF10597
       VL-REF10598 VU-REF10599 IL-REF10600 IU-REF10601 ABSTOL-REF10602
       M-REF10603 W-REF10604 Z-REF10605 LDZ-REF10606 WORK-REF10607
       LWORK-REF10608 IWORK-REF10609 IFAIL-REF10610 INFO-REF10611))))

(CFFI:DEFCFUN ("dsygs2_" %%DSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10612 ':INT32) (N-REF10614 ':INT32)
                              (LDA-REF10616 ':INT32) (LDB-REF10618 ':INT32)
                              (INFO-REF10619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10612 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10618 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10619 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10615 A) (B-REF10617 B))
      (%%DSYGS2 ITYPE-REF10612 UPLO N-REF10614 A-REF10615 LDA-REF10616
       B-REF10617 LDB-REF10618 INFO-REF10619))))

(CFFI:DEFCFUN ("dsygst_" %%DSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10620 ':INT32) (N-REF10622 ':INT32)
                              (LDA-REF10624 ':INT32) (LDB-REF10626 ':INT32)
                              (INFO-REF10627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10620 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10622 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10624 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10626 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10623 A) (B-REF10625 B))
      (%%DSYGST ITYPE-REF10620 UPLO N-REF10622 A-REF10623 LDA-REF10624
       B-REF10625 LDB-REF10626 INFO-REF10627))))

(CFFI:DEFCFUN ("dsygv_" %%DSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGV (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10628 ':INT32) (N-REF10631 ':INT32)
                              (LDA-REF10633 ':INT32) (LDB-REF10635 ':INT32)
                              (LWORK-REF10638 ':INT32) (INFO-REF10639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10628 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10633 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10635 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10638 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10639 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10632 A) (B-REF10634 B)
                                            (W-REF10636 W) (WORK-REF10637 WORK))
      (%%DSYGV ITYPE-REF10628 JOBZ UPLO N-REF10631 A-REF10632 LDA-REF10633
       B-REF10634 LDB-REF10635 W-REF10636 WORK-REF10637 LWORK-REF10638
       INFO-REF10639))))

(CFFI:DEFCFUN ("dsygv_2stage_" %%DSYGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10640 ':INT32) (N-REF10643 ':INT32)
                              (LDA-REF10645 ':INT32) (LDB-REF10647 ':INT32)
                              (LWORK-REF10650 ':INT32) (INFO-REF10651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10640 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10645 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10647 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10650 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10651 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10644 A) (B-REF10646 B)
                                            (W-REF10648 W) (WORK-REF10649 WORK))
      (%%DSYGV_2STAGE ITYPE-REF10640 JOBZ UPLO N-REF10643 A-REF10644
       LDA-REF10645 B-REF10646 LDB-REF10647 W-REF10648 WORK-REF10649
       LWORK-REF10650 INFO-REF10651))))

(CFFI:DEFCFUN ("dsygvd_" %%DSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10652 ':INT32) (N-REF10655 ':INT32)
                              (LDA-REF10657 ':INT32) (LDB-REF10659 ':INT32)
                              (LWORK-REF10662 ':INT32)
                              (LIWORK-REF10664 ':INT32) (INFO-REF10665 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10652 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10655 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10657 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10659 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10662 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10664 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10665 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10656 A) (B-REF10658 B)
                                            (W-REF10660 W) (WORK-REF10661 WORK)
                                            (IWORK-REF10663 IWORK))
      (%%DSYGVD ITYPE-REF10652 JOBZ UPLO N-REF10655 A-REF10656 LDA-REF10657
       B-REF10658 LDB-REF10659 W-REF10660 WORK-REF10661 LWORK-REF10662
       IWORK-REF10663 LIWORK-REF10664 INFO-REF10665))))

(CFFI:DEFCFUN ("dsygvx_" %%DSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10666 ':INT32) (N-REF10670 ':INT32)
                              (LDA-REF10672 ':INT32) (LDB-REF10674 ':INT32)
                              (VL-REF10675 ':DOUBLE) (VU-REF10676 ':DOUBLE)
                              (IL-REF10677 ':INT32) (IU-REF10678 ':INT32)
                              (ABSTOL-REF10679 ':DOUBLE) (M-REF10680 ':INT32)
                              (LDZ-REF10683 ':INT32) (LWORK-REF10685 ':INT32)
                              (INFO-REF10688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10666 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10672 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10674 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10675 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10676 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10677 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10678 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10679 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10680 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10683 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10685 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10688 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10671 A) (B-REF10673 B)
                                            (W-REF10681 W) (Z-REF10682 Z)
                                            (WORK-REF10684 WORK)
                                            (IWORK-REF10686 IWORK)
                                            (IFAIL-REF10687 IFAIL))
      (%%DSYGVX ITYPE-REF10666 JOBZ RANGE UPLO N-REF10670 A-REF10671
       LDA-REF10672 B-REF10673 LDB-REF10674 VL-REF10675 VU-REF10676 IL-REF10677
       IU-REF10678 ABSTOL-REF10679 M-REF10680 W-REF10681 Z-REF10682
       LDZ-REF10683 WORK-REF10684 LWORK-REF10685 IWORK-REF10686 IFAIL-REF10687
       INFO-REF10688))))

(CFFI:DEFCFUN ("dsyrfs_" %%DSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10690 ':INT32) (NRHS-REF10691 ':INT32)
                              (LDA-REF10693 ':INT32) (LDAF-REF10695 ':INT32)
                              (LDB-REF10698 ':INT32) (LDX-REF10700 ':INT32)
                              (INFO-REF10705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10691 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10695 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10698 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10700 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10692 A) (AF-REF10694 AF)
                                            (IPIV-REF10696 IPIV) (B-REF10697 B)
                                            (X-REF10699 X) (FERR-REF10701 FERR)
                                            (BERR-REF10702 BERR)
                                            (WORK-REF10703 WORK)
                                            (IWORK-REF10704 IWORK))
      (%%DSYRFS UPLO N-REF10690 NRHS-REF10691 A-REF10692 LDA-REF10693
       AF-REF10694 LDAF-REF10695 IPIV-REF10696 B-REF10697 LDB-REF10698
       X-REF10699 LDX-REF10700 FERR-REF10701 BERR-REF10702 WORK-REF10703
       IWORK-REF10704 INFO-REF10705))))

(CFFI:DEFCFUN ("dsyrfsx_" %%DSYRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10708 ':INT32) (NRHS-REF10709 ':INT32)
                              (LDA-REF10711 ':INT32) (LDAF-REF10713 ':INT32)
                              (LDB-REF10717 ':INT32) (LDX-REF10719 ':INT32)
                              (RCOND-REF10720 ':DOUBLE)
                              (N_ERR_BNDS-REF10722 ':INT32)
                              (NPARAMS-REF10725 ':INT32)
                              (INFO-REF10729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10709 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10711 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10713 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10717 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10719 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10720 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10722 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10725 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10710 A) (AF-REF10712 AF)
                                            (IPIV-REF10714 IPIV) (S-REF10715 S)
                                            (B-REF10716 B) (X-REF10718 X)
                                            (BERR-REF10721 BERR)
                                            (ERR_BNDS_NORM-REF10723
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF10724
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF10726 PARAMS)
                                            (WORK-REF10727 WORK)
                                            (IWORK-REF10728 IWORK))
      (%%DSYRFSX UPLO EQUED N-REF10708 NRHS-REF10709 A-REF10710 LDA-REF10711
       AF-REF10712 LDAF-REF10713 IPIV-REF10714 S-REF10715 B-REF10716
       LDB-REF10717 X-REF10718 LDX-REF10719 RCOND-REF10720 BERR-REF10721
       N_ERR_BNDS-REF10722 ERR_BNDS_NORM-REF10723 ERR_BNDS_COMP-REF10724
       NPARAMS-REF10725 PARAMS-REF10726 WORK-REF10727 IWORK-REF10728
       INFO-REF10729))))

(CFFI:DEFCFUN ("dsysv_" %%DSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10731 ':INT32) (NRHS-REF10732 ':INT32)
                              (LDA-REF10734 ':INT32) (LDB-REF10737 ':INT32)
                              (LWORK-REF10739 ':INT32) (INFO-REF10740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10732 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10734 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10737 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10739 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10733 A) (IPIV-REF10735 IPIV)
                                            (B-REF10736 B) (WORK-REF10738 WORK))
      (%%DSYSV UPLO N-REF10731 NRHS-REF10732 A-REF10733 LDA-REF10734
       IPIV-REF10735 B-REF10736 LDB-REF10737 WORK-REF10738 LWORK-REF10739
       INFO-REF10740))))

(CFFI:DEFCFUN ("dsysv_aa_" %%DSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10742 ':INT32) (NRHS-REF10743 ':INT32)
                              (LDA-REF10745 ':INT32) (LDB-REF10748 ':INT32)
                              (LWORK-REF10750 ':INT32) (INFO-REF10751 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10743 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10745 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10748 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10750 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10751 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10744 A) (IPIV-REF10746 IPIV)
                                            (B-REF10747 B) (WORK-REF10749 WORK))
      (%%DSYSV_AA UPLO N-REF10742 NRHS-REF10743 A-REF10744 LDA-REF10745
       IPIV-REF10746 B-REF10747 LDB-REF10748 WORK-REF10749 LWORK-REF10750
       INFO-REF10751))))

(CFFI:DEFCFUN ("dsysv_aa_2stage_" %%DSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10753 ':INT32) (NRHS-REF10754 ':INT32)
                              (LDA-REF10756 ':INT32) (LTB-REF10758 ':INT32)
                              (LDB-REF10762 ':INT32) (LWORK-REF10764 ':INT32)
                              (INFO-REF10765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10753 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10754 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10756 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10758 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10762 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10764 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10755 A) (TB-REF10757 TB)
                                            (IPIV-REF10759 IPIV)
                                            (IPIV2-REF10760 IPIV2)
                                            (B-REF10761 B) (WORK-REF10763 WORK))
      (%%DSYSV_AA_2STAGE UPLO N-REF10753 NRHS-REF10754 A-REF10755 LDA-REF10756
       TB-REF10757 LTB-REF10758 IPIV-REF10759 IPIV2-REF10760 B-REF10761
       LDB-REF10762 WORK-REF10763 LWORK-REF10764 INFO-REF10765))))

(CFFI:DEFCFUN ("dsysv_rk_" %%DSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10767 ':INT32) (NRHS-REF10768 ':INT32)
                              (LDA-REF10770 ':INT32) (LDB-REF10774 ':INT32)
                              (LWORK-REF10776 ':INT32) (INFO-REF10777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10768 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10770 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10774 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10776 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10769 A) (E-REF10771 E)
                                            (IPIV-REF10772 IPIV) (B-REF10773 B)
                                            (WORK-REF10775 WORK))
      (%%DSYSV_RK UPLO N-REF10767 NRHS-REF10768 A-REF10769 LDA-REF10770
       E-REF10771 IPIV-REF10772 B-REF10773 LDB-REF10774 WORK-REF10775
       LWORK-REF10776 INFO-REF10777))))

(CFFI:DEFCFUN ("dsysv_rook_" %%DSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10779 ':INT32) (NRHS-REF10780 ':INT32)
                              (LDA-REF10782 ':INT32) (LDB-REF10785 ':INT32)
                              (LWORK-REF10787 ':INT32) (INFO-REF10788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10779 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10780 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10782 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10785 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10787 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10781 A) (IPIV-REF10783 IPIV)
                                            (B-REF10784 B) (WORK-REF10786 WORK))
      (%%DSYSV_ROOK UPLO N-REF10779 NRHS-REF10780 A-REF10781 LDA-REF10782
       IPIV-REF10783 B-REF10784 LDB-REF10785 WORK-REF10786 LWORK-REF10787
       INFO-REF10788))))

(CFFI:DEFCFUN ("dsysvx_" %%DSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10791 ':INT32) (NRHS-REF10792 ':INT32)
                              (LDA-REF10794 ':INT32) (LDAF-REF10796 ':INT32)
                              (LDB-REF10799 ':INT32) (LDX-REF10801 ':INT32)
                              (RCOND-REF10802 ':DOUBLE)
                              (LWORK-REF10806 ':INT32) (INFO-REF10808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10791 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10792 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10794 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10796 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10799 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10801 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10802 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10806 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10793 A) (AF-REF10795 AF)
                                            (IPIV-REF10797 IPIV) (B-REF10798 B)
                                            (X-REF10800 X) (FERR-REF10803 FERR)
                                            (BERR-REF10804 BERR)
                                            (WORK-REF10805 WORK)
                                            (IWORK-REF10807 IWORK))
      (%%DSYSVX FACT UPLO N-REF10791 NRHS-REF10792 A-REF10793 LDA-REF10794
       AF-REF10795 LDAF-REF10796 IPIV-REF10797 B-REF10798 LDB-REF10799
       X-REF10800 LDX-REF10801 RCOND-REF10802 FERR-REF10803 BERR-REF10804
       WORK-REF10805 LWORK-REF10806 IWORK-REF10807 INFO-REF10808))))

(CFFI:DEFCFUN ("dsysvxx_" %%DSYSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10811 ':INT32) (NRHS-REF10812 ':INT32)
                              (LDA-REF10814 ':INT32) (LDAF-REF10816 ':INT32)
                              (LDB-REF10821 ':INT32) (LDX-REF10823 ':INT32)
                              (RCOND-REF10824 ':DOUBLE)
                              (RPVGRW-REF10825 ':DOUBLE)
                              (N_ERR_BNDS-REF10827 ':INT32)
                              (NPARAMS-REF10830 ':INT32)
                              (INFO-REF10834 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10811 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10812 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10814 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10816 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10821 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10823 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10824 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF10825 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10827 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10830 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10834 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10813 A) (AF-REF10815 AF)
                                            (IPIV-REF10817 IPIV) (S-REF10819 S)
                                            (B-REF10820 B) (X-REF10822 X)
                                            (BERR-REF10826 BERR)
                                            (ERR_BNDS_NORM-REF10828
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF10829
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF10831 PARAMS)
                                            (WORK-REF10832 WORK)
                                            (IWORK-REF10833 IWORK))
      (%%DSYSVXX FACT UPLO N-REF10811 NRHS-REF10812 A-REF10813 LDA-REF10814
       AF-REF10815 LDAF-REF10816 IPIV-REF10817 EQUED S-REF10819 B-REF10820
       LDB-REF10821 X-REF10822 LDX-REF10823 RCOND-REF10824 RPVGRW-REF10825
       BERR-REF10826 N_ERR_BNDS-REF10827 ERR_BNDS_NORM-REF10828
       ERR_BNDS_COMP-REF10829 NPARAMS-REF10830 PARAMS-REF10831 WORK-REF10832
       IWORK-REF10833 INFO-REF10834))))

(CFFI:DEFCFUN ("dsyswapr_" %%DSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %DSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10836 ':INT32) (LDA-REF10838 ':INT32)
                              (I1-REF10839 ':INT32) (I2-REF10840 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10836 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10838 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF10839 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF10840 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10837 A))
      (%%DSYSWAPR UPLO N-REF10836 A-REF10837 LDA-REF10838 I1-REF10839
       I2-REF10840))))

(CFFI:DEFCFUN ("dsytd2_" %%DSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10842 ':INT32) (LDA-REF10844 ':INT32)
                              (INFO-REF10848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10842 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10844 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10843 A) (D-REF10845 D)
                                            (E-REF10846 E) (TAU-REF10847 TAU))
      (%%DSYTD2 UPLO N-REF10842 A-REF10843 LDA-REF10844 D-REF10845 E-REF10846
       TAU-REF10847 INFO-REF10848))))

(CFFI:DEFCFUN ("dsytf2_" %%DSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10850 ':INT32) (LDA-REF10852 ':INT32)
                              (INFO-REF10854 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10852 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10854 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10851 A) (IPIV-REF10853 IPIV))
      (%%DSYTF2 UPLO N-REF10850 A-REF10851 LDA-REF10852 IPIV-REF10853
       INFO-REF10854))))

(CFFI:DEFCFUN ("dsytf2_rk_" %%DSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10856 ':INT32) (LDA-REF10858 ':INT32)
                              (INFO-REF10861 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10856 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10858 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10861 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10857 A) (E-REF10859 E)
                                            (IPIV-REF10860 IPIV))
      (%%DSYTF2_RK UPLO N-REF10856 A-REF10857 LDA-REF10858 E-REF10859
       IPIV-REF10860 INFO-REF10861))))

(CFFI:DEFCFUN ("dsytf2_rook_" %%DSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10863 ':INT32) (LDA-REF10865 ':INT32)
                              (INFO-REF10867 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10865 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10867 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10864 A) (IPIV-REF10866 IPIV))
      (%%DSYTF2_ROOK UPLO N-REF10863 A-REF10864 LDA-REF10865 IPIV-REF10866
       INFO-REF10867))))

(CFFI:DEFCFUN ("dsytrd_" %%DSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10869 ':INT32) (LDA-REF10871 ':INT32)
                              (LWORK-REF10876 ':INT32) (INFO-REF10877 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10869 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10871 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10876 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10877 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10870 A) (D-REF10872 D)
                                            (E-REF10873 E) (TAU-REF10874 TAU)
                                            (WORK-REF10875 WORK))
      (%%DSYTRD UPLO N-REF10869 A-REF10870 LDA-REF10871 D-REF10872 E-REF10873
       TAU-REF10874 WORK-REF10875 LWORK-REF10876 INFO-REF10877))))

(CFFI:DEFCFUN ("dsytrd_2stage_" %%DSYTRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10880 ':INT32) (LDA-REF10882 ':INT32)
                              (LHOUS2-REF10887 ':INT32)
                              (LWORK-REF10889 ':INT32) (INFO-REF10890 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF10887 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10889 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10890 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10881 A) (D-REF10883 D)
                                            (E-REF10884 E) (TAU-REF10885 TAU)
                                            (HOUS2-REF10886 HOUS2)
                                            (WORK-REF10888 WORK))
      (%%DSYTRD_2STAGE VECT UPLO N-REF10880 A-REF10881 LDA-REF10882 D-REF10883
       E-REF10884 TAU-REF10885 HOUS2-REF10886 LHOUS2-REF10887 WORK-REF10888
       LWORK-REF10889 INFO-REF10890))))

(CFFI:DEFCFUN ("dsytrd_sy2sb_" %%DSYTRD_SY2SB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD_SY2SB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_SY2SB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10892 ':INT32) (KD-REF10893 ':INT32)
                              (LDA-REF10895 ':INT32) (LDAB-REF10897 ':INT32)
                              (LWORK-REF10900 ':INT32) (INFO-REF10901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10892 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10893 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10895 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10897 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10900 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10901 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10894 A) (AB-REF10896 AB)
                                            (TAU-REF10898 TAU)
                                            (WORK-REF10899 WORK))
      (%%DSYTRD_SY2SB UPLO N-REF10892 KD-REF10893 A-REF10894 LDA-REF10895
       AB-REF10896 LDAB-REF10897 TAU-REF10898 WORK-REF10899 LWORK-REF10900
       INFO-REF10901))))

(CFFI:DEFCFUN ("dsytrf_" %%DSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10903 ':INT32) (LDA-REF10905 ':INT32)
                              (LWORK-REF10908 ':INT32) (INFO-REF10909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10905 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10904 A) (IPIV-REF10906 IPIV)
                                            (WORK-REF10907 WORK))
      (%%DSYTRF UPLO N-REF10903 A-REF10904 LDA-REF10905 IPIV-REF10906
       WORK-REF10907 LWORK-REF10908 INFO-REF10909))))

(CFFI:DEFCFUN ("dsytrf_aa_" %%DSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10911 ':INT32) (LDA-REF10913 ':INT32)
                              (LWORK-REF10916 ':INT32) (INFO-REF10917 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10913 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10916 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10917 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10912 A) (IPIV-REF10914 IPIV)
                                            (WORK-REF10915 WORK))
      (%%DSYTRF_AA UPLO N-REF10911 A-REF10912 LDA-REF10913 IPIV-REF10914
       WORK-REF10915 LWORK-REF10916 INFO-REF10917))))

(CFFI:DEFCFUN ("dsytrf_aa_2stage_" %%DSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10919 ':INT32) (LDA-REF10921 ':INT32)
                              (LTB-REF10923 ':INT32) (LWORK-REF10927 ':INT32)
                              (INFO-REF10928 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10919 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10921 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10923 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10927 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10928 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10920 A) (TB-REF10922 TB)
                                            (IPIV-REF10924 IPIV)
                                            (IPIV2-REF10925 IPIV2)
                                            (WORK-REF10926 WORK))
      (%%DSYTRF_AA_2STAGE UPLO N-REF10919 A-REF10920 LDA-REF10921 TB-REF10922
       LTB-REF10923 IPIV-REF10924 IPIV2-REF10925 WORK-REF10926 LWORK-REF10927
       INFO-REF10928))))

(CFFI:DEFCFUN ("dsytrf_rk_" %%DSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10930 ':INT32) (LDA-REF10932 ':INT32)
                              (LWORK-REF10936 ':INT32) (INFO-REF10937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10932 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10936 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10937 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10931 A) (E-REF10933 E)
                                            (IPIV-REF10934 IPIV)
                                            (WORK-REF10935 WORK))
      (%%DSYTRF_RK UPLO N-REF10930 A-REF10931 LDA-REF10932 E-REF10933
       IPIV-REF10934 WORK-REF10935 LWORK-REF10936 INFO-REF10937))))

(CFFI:DEFCFUN ("dsytrf_rook_" %%DSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10939 ':INT32) (LDA-REF10941 ':INT32)
                              (LWORK-REF10944 ':INT32) (INFO-REF10945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10939 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10941 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10944 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10940 A) (IPIV-REF10942 IPIV)
                                            (WORK-REF10943 WORK))
      (%%DSYTRF_ROOK UPLO N-REF10939 A-REF10940 LDA-REF10941 IPIV-REF10942
       WORK-REF10943 LWORK-REF10944 INFO-REF10945))))

(CFFI:DEFCFUN ("dsytri_" %%DSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10947 ':INT32) (LDA-REF10949 ':INT32)
                              (INFO-REF10952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10947 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10948 A) (IPIV-REF10950 IPIV)
                                            (WORK-REF10951 WORK))
      (%%DSYTRI UPLO N-REF10947 A-REF10948 LDA-REF10949 IPIV-REF10950
       WORK-REF10951 INFO-REF10952))))

(CFFI:DEFCFUN ("dsytri2_" %%DSYTRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10954 ':INT32) (LDA-REF10956 ':INT32)
                              (LWORK-REF10959 ':INT32) (INFO-REF10960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10954 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10956 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10959 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10955 A) (IPIV-REF10957 IPIV)
                                            (WORK-REF10958 WORK))
      (%%DSYTRI2 UPLO N-REF10954 A-REF10955 LDA-REF10956 IPIV-REF10957
       WORK-REF10958 LWORK-REF10959 INFO-REF10960))))

(CFFI:DEFCFUN ("dsytri2x_" %%DSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10962 ':INT32) (LDA-REF10964 ':INT32)
                              (NB-REF10967 ':INT32) (INFO-REF10968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10962 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10964 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10967 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10968 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10963 A) (IPIV-REF10965 IPIV)
                                            (WORK-REF10966 WORK))
      (%%DSYTRI2X UPLO N-REF10962 A-REF10963 LDA-REF10964 IPIV-REF10965
       WORK-REF10966 NB-REF10967 INFO-REF10968))))

(CFFI:DEFCFUN ("dsytri_3_" %%DSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10970 ':INT32) (LDA-REF10972 ':INT32)
                              (LWORK-REF10976 ':INT32) (INFO-REF10977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10970 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10972 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10976 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10971 A) (E-REF10973 E)
                                            (IPIV-REF10974 IPIV)
                                            (WORK-REF10975 WORK))
      (%%DSYTRI_3 UPLO N-REF10970 A-REF10971 LDA-REF10972 E-REF10973
       IPIV-REF10974 WORK-REF10975 LWORK-REF10976 INFO-REF10977))))

(CFFI:DEFCFUN ("dsytri_3x_" %%DSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10979 ':INT32) (LDA-REF10981 ':INT32)
                              (NB-REF10985 ':INT32) (INFO-REF10986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10981 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10985 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10986 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10980 A) (E-REF10982 E)
                                            (IPIV-REF10983 IPIV)
                                            (WORK-REF10984 WORK))
      (%%DSYTRI_3X UPLO N-REF10979 A-REF10980 LDA-REF10981 E-REF10982
       IPIV-REF10983 WORK-REF10984 NB-REF10985 INFO-REF10986))))

(CFFI:DEFCFUN ("dsytri_rook_" %%DSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10988 ':INT32) (LDA-REF10990 ':INT32)
                              (INFO-REF10993 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10988 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10990 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10993 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10989 A) (IPIV-REF10991 IPIV)
                                            (WORK-REF10992 WORK))
      (%%DSYTRI_ROOK UPLO N-REF10988 A-REF10989 LDA-REF10990 IPIV-REF10991
       WORK-REF10992 INFO-REF10993))))

(CFFI:DEFCFUN ("dsytrs_" %%DSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10995 ':INT32) (NRHS-REF10996 ':INT32)
                              (LDA-REF10998 ':INT32) (LDB-REF11001 ':INT32)
                              (INFO-REF11002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10996 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10998 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11001 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10997 A) (IPIV-REF10999 IPIV)
                                            (B-REF11000 B))
      (%%DSYTRS UPLO N-REF10995 NRHS-REF10996 A-REF10997 LDA-REF10998
       IPIV-REF10999 B-REF11000 LDB-REF11001 INFO-REF11002))))

(CFFI:DEFCFUN ("dsytrs2_" %%DSYTRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11004 ':INT32) (NRHS-REF11005 ':INT32)
                              (LDA-REF11007 ':INT32) (LDB-REF11010 ':INT32)
                              (INFO-REF11012 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11005 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11010 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11012 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11006 A) (IPIV-REF11008 IPIV)
                                            (B-REF11009 B) (WORK-REF11011 WORK))
      (%%DSYTRS2 UPLO N-REF11004 NRHS-REF11005 A-REF11006 LDA-REF11007
       IPIV-REF11008 B-REF11009 LDB-REF11010 WORK-REF11011 INFO-REF11012))))

(CFFI:DEFCFUN ("dsytrs_3_" %%DSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11014 ':INT32) (NRHS-REF11015 ':INT32)
                              (LDA-REF11017 ':INT32) (LDB-REF11021 ':INT32)
                              (INFO-REF11022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11014 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11015 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11017 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11021 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11016 A) (E-REF11018 E)
                                            (IPIV-REF11019 IPIV) (B-REF11020 B))
      (%%DSYTRS_3 UPLO N-REF11014 NRHS-REF11015 A-REF11016 LDA-REF11017
       E-REF11018 IPIV-REF11019 B-REF11020 LDB-REF11021 INFO-REF11022))))

(CFFI:DEFCFUN ("dsytrs_aa_" %%DSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11024 ':INT32) (NRHS-REF11025 ':INT32)
                              (LDA-REF11027 ':INT32) (LDB-REF11030 ':INT32)
                              (LWORK-REF11032 ':INT32) (INFO-REF11033 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11025 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11030 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11032 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11033 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11026 A) (IPIV-REF11028 IPIV)
                                            (B-REF11029 B) (WORK-REF11031 WORK))
      (%%DSYTRS_AA UPLO N-REF11024 NRHS-REF11025 A-REF11026 LDA-REF11027
       IPIV-REF11028 B-REF11029 LDB-REF11030 WORK-REF11031 LWORK-REF11032
       INFO-REF11033))))

(CFFI:DEFCFUN ("dsytrs_aa_2stage_" %%DSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11035 ':INT32) (NRHS-REF11036 ':INT32)
                              (LDA-REF11038 ':INT32) (LTB-REF11040 ':INT32)
                              (LDB-REF11044 ':INT32) (INFO-REF11045 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11035 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11036 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11038 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF11040 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11044 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11045 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11037 A) (TB-REF11039 TB)
                                            (IPIV-REF11041 IPIV)
                                            (IPIV2-REF11042 IPIV2)
                                            (B-REF11043 B))
      (%%DSYTRS_AA_2STAGE UPLO N-REF11035 NRHS-REF11036 A-REF11037 LDA-REF11038
       TB-REF11039 LTB-REF11040 IPIV-REF11041 IPIV2-REF11042 B-REF11043
       LDB-REF11044 INFO-REF11045))))

(CFFI:DEFCFUN ("dsytrs_rook_" %%DSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11047 ':INT32) (NRHS-REF11048 ':INT32)
                              (LDA-REF11050 ':INT32) (LDB-REF11053 ':INT32)
                              (INFO-REF11054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11047 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11048 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11050 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11053 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11054 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11049 A) (IPIV-REF11051 IPIV)
                                            (B-REF11052 B))
      (%%DSYTRS_ROOK UPLO N-REF11047 NRHS-REF11048 A-REF11049 LDA-REF11050
       IPIV-REF11051 B-REF11052 LDB-REF11053 INFO-REF11054))))

(CFFI:DEFCFUN ("dtbcon_" %%DTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11058 ':INT32) (KD-REF11059 ':INT32)
                              (LDAB-REF11061 ':INT32) (RCOND-REF11062 ':DOUBLE)
                              (INFO-REF11065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11059 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11061 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11062 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11060 AB)
                                            (WORK-REF11063 WORK)
                                            (IWORK-REF11064 IWORK))
      (%%DTBCON NORM UPLO DIAG N-REF11058 KD-REF11059 AB-REF11060 LDAB-REF11061
       RCOND-REF11062 WORK-REF11063 IWORK-REF11064 INFO-REF11065))))

(CFFI:DEFCFUN ("dtbrfs_" %%DTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11069 ':INT32) (KD-REF11070 ':INT32)
                              (NRHS-REF11071 ':INT32) (LDAB-REF11073 ':INT32)
                              (LDB-REF11075 ':INT32) (LDX-REF11077 ':INT32)
                              (INFO-REF11082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11069 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11070 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11071 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11073 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11075 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11077 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11082 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11072 AB) (B-REF11074 B)
                                            (X-REF11076 X) (FERR-REF11078 FERR)
                                            (BERR-REF11079 BERR)
                                            (WORK-REF11080 WORK)
                                            (IWORK-REF11081 IWORK))
      (%%DTBRFS UPLO TRANS DIAG N-REF11069 KD-REF11070 NRHS-REF11071
       AB-REF11072 LDAB-REF11073 B-REF11074 LDB-REF11075 X-REF11076
       LDX-REF11077 FERR-REF11078 BERR-REF11079 WORK-REF11080 IWORK-REF11081
       INFO-REF11082))))

(CFFI:DEFCFUN ("dtbtrs_" %%DTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11086 ':INT32) (KD-REF11087 ':INT32)
                              (NRHS-REF11088 ':INT32) (LDAB-REF11090 ':INT32)
                              (LDB-REF11092 ':INT32) (INFO-REF11093 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11087 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11088 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11090 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11092 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11093 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11089 AB) (B-REF11091 B))
      (%%DTBTRS UPLO TRANS DIAG N-REF11086 KD-REF11087 NRHS-REF11088
       AB-REF11089 LDAB-REF11090 B-REF11091 LDB-REF11092 INFO-REF11093))))

(CFFI:DEFCFUN ("dtfsm_" %%DTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11099 ':INT32) (N-REF11100 ':INT32)
                              (ALPHA-REF11101 ':DOUBLE) (LDB-REF11104 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11099 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF11101 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11104 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11102 A) (B-REF11103 B))
      (%%DTFSM TRANSR SIDE UPLO TRANS DIAG M-REF11099 N-REF11100 ALPHA-REF11101
       A-REF11102 B-REF11103 LDB-REF11104))))

(CFFI:DEFCFUN ("dtftri_" %%DTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11108 ':INT32) (INFO-REF11110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11109 A))
      (%%DTFTRI TRANSR UPLO DIAG N-REF11108 A-REF11109 INFO-REF11110))))

(CFFI:DEFCFUN ("dtfttp_" %%DTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11113 ':INT32) (INFO-REF11116 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11113 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11116 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11114 ARF) (AP-REF11115 AP))
      (%%DTFTTP TRANSR UPLO N-REF11113 ARF-REF11114 AP-REF11115
       INFO-REF11116))))

(CFFI:DEFCFUN ("dtfttr_" %%DTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11119 ':INT32) (LDA-REF11122 ':INT32)
                              (INFO-REF11123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11122 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11120 ARF) (A-REF11121 A))
      (%%DTFTTR TRANSR UPLO N-REF11119 ARF-REF11120 A-REF11121 LDA-REF11122
       INFO-REF11123))))

(CFFI:DEFCFUN ("dtgevc_" %%DTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11127 ':INT32) (LDS-REF11129 ':INT32)
                              (LDP-REF11131 ':INT32) (LDVL-REF11133 ':INT32)
                              (LDVR-REF11135 ':INT32) (MM-REF11136 ':INT32)
                              (M-REF11137 ':INT32) (INFO-REF11139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11127 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF11129 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF11131 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11133 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11135 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11136 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11137 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11139 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11126 SELECT)
                                            (S-REF11128 S) (P-REF11130 P)
                                            (VL-REF11132 VL) (VR-REF11134 VR)
                                            (WORK-REF11138 WORK))
      (%%DTGEVC SIDE HOWMNY SELECT-REF11126 N-REF11127 S-REF11128 LDS-REF11129
       P-REF11130 LDP-REF11131 VL-REF11132 LDVL-REF11133 VR-REF11134
       LDVR-REF11135 MM-REF11136 M-REF11137 WORK-REF11138 INFO-REF11139))))

(CFFI:DEFCFUN ("dtgex2_" %%DTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEX2
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11140 ':INT32) (WANTZ-REF11141 ':INT32)
                              (N-REF11142 ':INT32) (LDA-REF11144 ':INT32)
                              (LDB-REF11146 ':INT32) (LDQ-REF11148 ':INT32)
                              (LDZ-REF11150 ':INT32) (J1-REF11151 ':INT32)
                              (N1-REF11152 ':INT32) (N2-REF11153 ':INT32)
                              (LWORK-REF11155 ':INT32) (INFO-REF11156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11140 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11141 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11142 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11144 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11146 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11148 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11150 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF11151 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11152 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11153 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11155 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11143 A) (B-REF11145 B)
                                            (Q-REF11147 Q) (Z-REF11149 Z)
                                            (WORK-REF11154 WORK))
      (%%DTGEX2 WANTQ-REF11140 WANTZ-REF11141 N-REF11142 A-REF11143
       LDA-REF11144 B-REF11145 LDB-REF11146 Q-REF11147 LDQ-REF11148 Z-REF11149
       LDZ-REF11150 J1-REF11151 N1-REF11152 N2-REF11153 WORK-REF11154
       LWORK-REF11155 INFO-REF11156))))

(CFFI:DEFCFUN ("dtgexc_" %%DTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11157 ':INT32) (WANTZ-REF11158 ':INT32)
                              (N-REF11159 ':INT32) (LDA-REF11161 ':INT32)
                              (LDB-REF11163 ':INT32) (LDQ-REF11165 ':INT32)
                              (LDZ-REF11167 ':INT32) (IFST-REF11168 ':INT32)
                              (ILST-REF11169 ':INT32) (LWORK-REF11171 ':INT32)
                              (INFO-REF11172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11157 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11158 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11161 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11163 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11165 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11167 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11168 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11169 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11171 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11160 A) (B-REF11162 B)
                                            (Q-REF11164 Q) (Z-REF11166 Z)
                                            (WORK-REF11170 WORK))
      (%%DTGEXC WANTQ-REF11157 WANTZ-REF11158 N-REF11159 A-REF11160
       LDA-REF11161 B-REF11162 LDB-REF11163 Q-REF11164 LDQ-REF11165 Z-REF11166
       LDZ-REF11167 IFST-REF11168 ILST-REF11169 WORK-REF11170 LWORK-REF11171
       INFO-REF11172))))

(CFFI:DEFCFUN ("dtgsen_" %%DTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11173 ':INT32) (WANTQ-REF11174 ':INT32)
                              (WANTZ-REF11175 ':INT32) (N-REF11177 ':INT32)
                              (LDA-REF11179 ':INT32) (LDB-REF11181 ':INT32)
                              (LDQ-REF11186 ':INT32) (LDZ-REF11188 ':INT32)
                              (M-REF11189 ':INT32) (PL-REF11190 ':DOUBLE)
                              (PR-REF11191 ':DOUBLE) (LWORK-REF11194 ':INT32)
                              (LIWORK-REF11196 ':INT32) (INFO-REF11197 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11173 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11174 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11175 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11177 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11179 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11181 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11186 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11188 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11189 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF11190 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF11191 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11194 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11196 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11197 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11176 SELECT)
                                            (A-REF11178 A) (B-REF11180 B)
                                            (ALPHAR-REF11182 ALPHAR)
                                            (ALPHAI-REF11183 ALPHAI)
                                            (BETA-REF11184 BETA) (Q-REF11185 Q)
                                            (Z-REF11187 Z) (DIF-REF11192 DIF)
                                            (WORK-REF11193 WORK)
                                            (IWORK-REF11195 IWORK))
      (%%DTGSEN IJOB-REF11173 WANTQ-REF11174 WANTZ-REF11175 SELECT-REF11176
       N-REF11177 A-REF11178 LDA-REF11179 B-REF11180 LDB-REF11181
       ALPHAR-REF11182 ALPHAI-REF11183 BETA-REF11184 Q-REF11185 LDQ-REF11186
       Z-REF11187 LDZ-REF11188 M-REF11189 PL-REF11190 PR-REF11191 DIF-REF11192
       WORK-REF11193 LWORK-REF11194 IWORK-REF11195 LIWORK-REF11196
       INFO-REF11197))))

(CFFI:DEFCFUN ("dtgsja_" %%DTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11201 ':INT32) (P-REF11202 ':INT32)
                              (N-REF11203 ':INT32) (K-REF11204 ':INT32)
                              (L-REF11205 ':INT32) (LDA-REF11207 ':INT32)
                              (LDB-REF11209 ':INT32) (TOLA-REF11210 ':DOUBLE)
                              (TOLB-REF11211 ':DOUBLE) (LDU-REF11215 ':INT32)
                              (LDV-REF11217 ':INT32) (LDQ-REF11219 ':INT32)
                              (NCYCLE-REF11221 ':INT32) (INFO-REF11222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11201 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11202 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11203 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11204 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11205 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11207 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11209 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF11210 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF11211 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11215 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11217 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11219 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF11221 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11222 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11206 A) (B-REF11208 B)
                                            (ALPHA-REF11212 ALPHA)
                                            (BETA-REF11213 BETA) (U-REF11214 U)
                                            (V-REF11216 V) (Q-REF11218 Q)
                                            (WORK-REF11220 WORK))
      (%%DTGSJA JOBU JOBV JOBQ M-REF11201 P-REF11202 N-REF11203 K-REF11204
       L-REF11205 A-REF11206 LDA-REF11207 B-REF11208 LDB-REF11209 TOLA-REF11210
       TOLB-REF11211 ALPHA-REF11212 BETA-REF11213 U-REF11214 LDU-REF11215
       V-REF11216 LDV-REF11217 Q-REF11218 LDQ-REF11219 WORK-REF11220
       NCYCLE-REF11221 INFO-REF11222))))

(CFFI:DEFCFUN ("dtgsna_" %%DTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11226 ':INT32) (LDA-REF11228 ':INT32)
                              (LDB-REF11230 ':INT32) (LDVL-REF11232 ':INT32)
                              (LDVR-REF11234 ':INT32) (MM-REF11237 ':INT32)
                              (M-REF11238 ':INT32) (LWORK-REF11240 ':INT32)
                              (INFO-REF11242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11228 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11230 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11232 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11234 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11237 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11240 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11225 SELECT)
                                            (A-REF11227 A) (B-REF11229 B)
                                            (VL-REF11231 VL) (VR-REF11233 VR)
                                            (S-REF11235 S) (DIF-REF11236 DIF)
                                            (WORK-REF11239 WORK)
                                            (IWORK-REF11241 IWORK))
      (%%DTGSNA JOB HOWMNY SELECT-REF11225 N-REF11226 A-REF11227 LDA-REF11228
       B-REF11229 LDB-REF11230 VL-REF11231 LDVL-REF11232 VR-REF11233
       LDVR-REF11234 S-REF11235 DIF-REF11236 MM-REF11237 M-REF11238
       WORK-REF11239 LWORK-REF11240 IWORK-REF11241 INFO-REF11242))))

(CFFI:DEFCFUN ("dtgsy2_" %%DTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IWORK :POINTER)
  (PQ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL IWORK PQ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11244 ':INT32) (M-REF11245 ':INT32)
                              (N-REF11246 ':INT32) (LDA-REF11248 ':INT32)
                              (LDB-REF11250 ':INT32) (LDC-REF11252 ':INT32)
                              (LDD-REF11254 ':INT32) (LDE-REF11256 ':INT32)
                              (LDF-REF11258 ':INT32) (SCALE-REF11259 ':DOUBLE)
                              (RDSUM-REF11260 ':DOUBLE)
                              (RDSCAL-REF11261 ':DOUBLE) (PQ-REF11263 ':INT32)
                              (INFO-REF11264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11244 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11245 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11248 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11250 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11252 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11254 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11256 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11258 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11259 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF11260 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF11261 :DOUBLE) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF11263 :INT32) PQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11247 A) (B-REF11249 B)
                                            (C-REF11251 C) (D-REF11253 D)
                                            (E-REF11255 E) (F-REF11257 F)
                                            (IWORK-REF11262 IWORK))
      (%%DTGSY2 TRANS IJOB-REF11244 M-REF11245 N-REF11246 A-REF11247
       LDA-REF11248 B-REF11249 LDB-REF11250 C-REF11251 LDC-REF11252 D-REF11253
       LDD-REF11254 E-REF11255 LDE-REF11256 F-REF11257 LDF-REF11258
       SCALE-REF11259 RDSUM-REF11260 RDSCAL-REF11261 IWORK-REF11262 PQ-REF11263
       INFO-REF11264))))

(CFFI:DEFCFUN ("dtgsyl_" %%DTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11266 ':INT32) (M-REF11267 ':INT32)
                              (N-REF11268 ':INT32) (LDA-REF11270 ':INT32)
                              (LDB-REF11272 ':INT32) (LDC-REF11274 ':INT32)
                              (LDD-REF11276 ':INT32) (LDE-REF11278 ':INT32)
                              (LDF-REF11280 ':INT32) (SCALE-REF11281 ':DOUBLE)
                              (DIF-REF11282 ':DOUBLE) (LWORK-REF11284 ':INT32)
                              (INFO-REF11286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11266 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11267 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11270 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11272 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11274 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11276 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11278 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11280 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11281 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF11282 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11284 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11286 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11269 A) (B-REF11271 B)
                                            (C-REF11273 C) (D-REF11275 D)
                                            (E-REF11277 E) (F-REF11279 F)
                                            (WORK-REF11283 WORK)
                                            (IWORK-REF11285 IWORK))
      (%%DTGSYL TRANS IJOB-REF11266 M-REF11267 N-REF11268 A-REF11269
       LDA-REF11270 B-REF11271 LDB-REF11272 C-REF11273 LDC-REF11274 D-REF11275
       LDD-REF11276 E-REF11277 LDE-REF11278 F-REF11279 LDF-REF11280
       SCALE-REF11281 DIF-REF11282 WORK-REF11283 LWORK-REF11284 IWORK-REF11285
       INFO-REF11286))))

(CFFI:DEFCFUN ("dtpcon_" %%DTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11290 ':INT32) (RCOND-REF11292 ':DOUBLE)
                              (INFO-REF11295 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11290 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11292 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11295 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11291 AP)
                                            (WORK-REF11293 WORK)
                                            (IWORK-REF11294 IWORK))
      (%%DTPCON NORM UPLO DIAG N-REF11290 AP-REF11291 RCOND-REF11292
       WORK-REF11293 IWORK-REF11294 INFO-REF11295))))

(CFFI:DEFCFUN ("dtplqt_" %%DTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11296 ':INT32) (N-REF11297 ':INT32)
                              (L-REF11298 ':INT32) (MB-REF11299 ':INT32)
                              (LDA-REF11301 ':INT32) (LDB-REF11303 ':INT32)
                              (LDT-REF11305 ':INT32) (INFO-REF11307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11296 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11297 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11298 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11299 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11301 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11303 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11305 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11300 A) (B-REF11302 B)
                                            (T-REF11304 T) (WORK-REF11306 WORK))
      (%%DTPLQT M-REF11296 N-REF11297 L-REF11298 MB-REF11299 A-REF11300
       LDA-REF11301 B-REF11302 LDB-REF11303 T-REF11304 LDT-REF11305
       WORK-REF11306 INFO-REF11307))))

(CFFI:DEFCFUN ("dtplqt2_" %%DTPLQT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11308 ':INT32) (N-REF11309 ':INT32)
                              (L-REF11310 ':INT32) (LDA-REF11312 ':INT32)
                              (LDB-REF11314 ':INT32) (LDT-REF11316 ':INT32)
                              (INFO-REF11317 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11310 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11312 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11314 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11316 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11317 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11311 A) (B-REF11313 B)
                                            (T-REF11315 T))
      (%%DTPLQT2 M-REF11308 N-REF11309 L-REF11310 A-REF11311 LDA-REF11312
       B-REF11313 LDB-REF11314 T-REF11315 LDT-REF11316 INFO-REF11317))))

(CFFI:DEFCFUN ("dtpmlqt_" %%DTPMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11320 ':INT32) (N-REF11321 ':INT32)
                              (K-REF11322 ':INT32) (L-REF11323 ':INT32)
                              (MB-REF11324 ':INT32) (LDV-REF11326 ':INT32)
                              (LDT-REF11328 ':INT32) (LDA-REF11330 ':INT32)
                              (LDB-REF11332 ':INT32) (INFO-REF11334 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11320 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11322 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11323 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11324 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11326 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11328 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11330 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11332 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11334 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11325 V) (T-REF11327 T)
                                            (A-REF11329 A) (B-REF11331 B)
                                            (WORK-REF11333 WORK))
      (%%DTPMLQT SIDE TRANS M-REF11320 N-REF11321 K-REF11322 L-REF11323
       MB-REF11324 V-REF11325 LDV-REF11326 T-REF11327 LDT-REF11328 A-REF11329
       LDA-REF11330 B-REF11331 LDB-REF11332 WORK-REF11333 INFO-REF11334))))

(CFFI:DEFCFUN ("dtpmqrt_" %%DTPMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11337 ':INT32) (N-REF11338 ':INT32)
                              (K-REF11339 ':INT32) (L-REF11340 ':INT32)
                              (NB-REF11341 ':INT32) (LDV-REF11343 ':INT32)
                              (LDT-REF11345 ':INT32) (LDA-REF11347 ':INT32)
                              (LDB-REF11349 ':INT32) (INFO-REF11351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11337 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11339 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11340 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11341 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11343 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11345 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11347 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11349 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11342 V) (T-REF11344 T)
                                            (A-REF11346 A) (B-REF11348 B)
                                            (WORK-REF11350 WORK))
      (%%DTPMQRT SIDE TRANS M-REF11337 N-REF11338 K-REF11339 L-REF11340
       NB-REF11341 V-REF11342 LDV-REF11343 T-REF11344 LDT-REF11345 A-REF11346
       LDA-REF11347 B-REF11348 LDB-REF11349 WORK-REF11350 INFO-REF11351))))

(CFFI:DEFCFUN ("dtpqrt_" %%DTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11352 ':INT32) (N-REF11353 ':INT32)
                              (L-REF11354 ':INT32) (NB-REF11355 ':INT32)
                              (LDA-REF11357 ':INT32) (LDB-REF11359 ':INT32)
                              (LDT-REF11361 ':INT32) (INFO-REF11363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11354 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11355 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11357 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11359 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11361 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11356 A) (B-REF11358 B)
                                            (T-REF11360 T) (WORK-REF11362 WORK))
      (%%DTPQRT M-REF11352 N-REF11353 L-REF11354 NB-REF11355 A-REF11356
       LDA-REF11357 B-REF11358 LDB-REF11359 T-REF11360 LDT-REF11361
       WORK-REF11362 INFO-REF11363))))

(CFFI:DEFCFUN ("dtpqrt2_" %%DTPQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11364 ':INT32) (N-REF11365 ':INT32)
                              (L-REF11366 ':INT32) (LDA-REF11368 ':INT32)
                              (LDB-REF11370 ':INT32) (LDT-REF11372 ':INT32)
                              (INFO-REF11373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11364 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11366 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11368 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11370 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11372 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11373 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11367 A) (B-REF11369 B)
                                            (T-REF11371 T))
      (%%DTPQRT2 M-REF11364 N-REF11365 L-REF11366 A-REF11367 LDA-REF11368
       B-REF11369 LDB-REF11370 T-REF11371 LDT-REF11372 INFO-REF11373))))

(CFFI:DEFCFUN ("dtprfb_" %%DTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11378 ':INT32) (N-REF11379 ':INT32)
                              (K-REF11380 ':INT32) (L-REF11381 ':INT32)
                              (LDV-REF11383 ':INT32) (LDT-REF11385 ':INT32)
                              (LDA-REF11387 ':INT32) (LDB-REF11389 ':INT32)
                              (LDWORK-REF11391 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11378 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11379 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11380 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11381 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11383 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11385 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11387 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11389 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11391 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11382 V) (T-REF11384 T)
                                            (A-REF11386 A) (B-REF11388 B)
                                            (WORK-REF11390 WORK))
      (%%DTPRFB SIDE TRANS DIRECT STOREV M-REF11378 N-REF11379 K-REF11380
       L-REF11381 V-REF11382 LDV-REF11383 T-REF11384 LDT-REF11385 A-REF11386
       LDA-REF11387 B-REF11388 LDB-REF11389 WORK-REF11390 LDWORK-REF11391))))

(CFFI:DEFCFUN ("dtprfs_" %%DTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11395 ':INT32) (NRHS-REF11396 ':INT32)
                              (LDB-REF11399 ':INT32) (LDX-REF11401 ':INT32)
                              (INFO-REF11406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11395 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11396 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11399 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11401 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11397 AP) (B-REF11398 B)
                                            (X-REF11400 X) (FERR-REF11402 FERR)
                                            (BERR-REF11403 BERR)
                                            (WORK-REF11404 WORK)
                                            (IWORK-REF11405 IWORK))
      (%%DTPRFS UPLO TRANS DIAG N-REF11395 NRHS-REF11396 AP-REF11397 B-REF11398
       LDB-REF11399 X-REF11400 LDX-REF11401 FERR-REF11402 BERR-REF11403
       WORK-REF11404 IWORK-REF11405 INFO-REF11406))))

(CFFI:DEFCFUN ("dtptri_" %%DTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11409 ':INT32) (INFO-REF11411 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11411 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11410 AP))
      (%%DTPTRI UPLO DIAG N-REF11409 AP-REF11410 INFO-REF11411))))

(CFFI:DEFCFUN ("dtptrs_" %%DTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11415 ':INT32) (NRHS-REF11416 ':INT32)
                              (LDB-REF11419 ':INT32) (INFO-REF11420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11415 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11416 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11419 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11417 AP) (B-REF11418 B))
      (%%DTPTRS UPLO TRANS DIAG N-REF11415 NRHS-REF11416 AP-REF11417 B-REF11418
       LDB-REF11419 INFO-REF11420))))

(CFFI:DEFCFUN ("dtpttf_" %%DTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11423 ':INT32) (INFO-REF11426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11424 AP) (ARF-REF11425 ARF))
      (%%DTPTTF TRANSR UPLO N-REF11423 AP-REF11424 ARF-REF11425
       INFO-REF11426))))

(CFFI:DEFCFUN ("dtpttr_" %%DTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11428 ':INT32) (LDA-REF11431 ':INT32)
                              (INFO-REF11432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11432 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11429 AP) (A-REF11430 A))
      (%%DTPTTR UPLO N-REF11428 AP-REF11429 A-REF11430 LDA-REF11431
       INFO-REF11432))))

(CFFI:DEFCFUN ("dtrcon_" %%DTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRCON (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11436 ':INT32) (LDA-REF11438 ':INT32)
                              (RCOND-REF11439 ':DOUBLE) (INFO-REF11442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11439 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11437 A) (WORK-REF11440 WORK)
                                            (IWORK-REF11441 IWORK))
      (%%DTRCON NORM UPLO DIAG N-REF11436 A-REF11437 LDA-REF11438
       RCOND-REF11439 WORK-REF11440 IWORK-REF11441 INFO-REF11442))))

(CFFI:DEFCFUN ("dtrevc_" %%DTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11446 ':INT32) (LDT-REF11448 ':INT32)
                              (LDVL-REF11450 ':INT32) (LDVR-REF11452 ':INT32)
                              (MM-REF11453 ':INT32) (M-REF11454 ':INT32)
                              (INFO-REF11456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11446 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11448 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11450 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11452 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11453 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11454 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11445 SELECT)
                                            (T-REF11447 T) (VL-REF11449 VL)
                                            (VR-REF11451 VR)
                                            (WORK-REF11455 WORK))
      (%%DTREVC SIDE HOWMNY SELECT-REF11445 N-REF11446 T-REF11447 LDT-REF11448
       VL-REF11449 LDVL-REF11450 VR-REF11451 LDVR-REF11452 MM-REF11453
       M-REF11454 WORK-REF11455 INFO-REF11456))))

(CFFI:DEFCFUN ("dtrevc3_" %%DTREVC3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11460 ':INT32) (LDT-REF11462 ':INT32)
                              (LDVL-REF11464 ':INT32) (LDVR-REF11466 ':INT32)
                              (MM-REF11467 ':INT32) (M-REF11468 ':INT32)
                              (LWORK-REF11470 ':INT32) (INFO-REF11471 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11460 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11462 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11464 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11466 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11467 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11468 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11470 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11471 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11459 SELECT)
                                            (T-REF11461 T) (VL-REF11463 VL)
                                            (VR-REF11465 VR)
                                            (WORK-REF11469 WORK))
      (%%DTREVC3 SIDE HOWMNY SELECT-REF11459 N-REF11460 T-REF11461 LDT-REF11462
       VL-REF11463 LDVL-REF11464 VR-REF11465 LDVR-REF11466 MM-REF11467
       M-REF11468 WORK-REF11469 LWORK-REF11470 INFO-REF11471))))

(CFFI:DEFCFUN ("dtrexc_" %%DTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11473 ':INT32) (LDT-REF11475 ':INT32)
                              (LDQ-REF11477 ':INT32) (IFST-REF11478 ':INT32)
                              (ILST-REF11479 ':INT32) (INFO-REF11481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11475 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11477 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11478 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11479 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11481 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF11474 T) (Q-REF11476 Q)
                                            (WORK-REF11480 WORK))
      (%%DTREXC COMPQ N-REF11473 T-REF11474 LDT-REF11475 Q-REF11476
       LDQ-REF11477 IFST-REF11478 ILST-REF11479 WORK-REF11480 INFO-REF11481))))

(CFFI:DEFCFUN ("dtrrfs_" %%DTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11485 ':INT32) (NRHS-REF11486 ':INT32)
                              (LDA-REF11488 ':INT32) (LDB-REF11490 ':INT32)
                              (LDX-REF11492 ':INT32) (INFO-REF11497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11486 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11488 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11490 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11492 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11487 A) (B-REF11489 B)
                                            (X-REF11491 X) (FERR-REF11493 FERR)
                                            (BERR-REF11494 BERR)
                                            (WORK-REF11495 WORK)
                                            (IWORK-REF11496 IWORK))
      (%%DTRRFS UPLO TRANS DIAG N-REF11485 NRHS-REF11486 A-REF11487
       LDA-REF11488 B-REF11489 LDB-REF11490 X-REF11491 LDX-REF11492
       FERR-REF11493 BERR-REF11494 WORK-REF11495 IWORK-REF11496
       INFO-REF11497))))

(CFFI:DEFCFUN ("dtrsen_" %%DTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11501 ':INT32) (LDT-REF11503 ':INT32)
                              (LDQ-REF11505 ':INT32) (M-REF11508 ':INT32)
                              (S-REF11509 ':DOUBLE) (SEP-REF11510 ':DOUBLE)
                              (LWORK-REF11512 ':INT32)
                              (LIWORK-REF11514 ':INT32) (INFO-REF11515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11503 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11505 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF11509 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF11510 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11512 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11514 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11500 SELECT)
                                            (T-REF11502 T) (Q-REF11504 Q)
                                            (WR-REF11506 WR) (WI-REF11507 WI)
                                            (WORK-REF11511 WORK)
                                            (IWORK-REF11513 IWORK))
      (%%DTRSEN JOB COMPQ SELECT-REF11500 N-REF11501 T-REF11502 LDT-REF11503
       Q-REF11504 LDQ-REF11505 WR-REF11506 WI-REF11507 M-REF11508 S-REF11509
       SEP-REF11510 WORK-REF11511 LWORK-REF11512 IWORK-REF11513 LIWORK-REF11514
       INFO-REF11515))))

(CFFI:DEFCFUN ("dtrsna_" %%DTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11519 ':INT32) (LDT-REF11521 ':INT32)
                              (LDVL-REF11523 ':INT32) (LDVR-REF11525 ':INT32)
                              (MM-REF11528 ':INT32) (M-REF11529 ':INT32)
                              (LDWORK-REF11531 ':INT32) (INFO-REF11533 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11519 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11521 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11523 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11525 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11528 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11529 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11531 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11533 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11518 SELECT)
                                            (T-REF11520 T) (VL-REF11522 VL)
                                            (VR-REF11524 VR) (S-REF11526 S)
                                            (SEP-REF11527 SEP)
                                            (WORK-REF11530 WORK)
                                            (IWORK-REF11532 IWORK))
      (%%DTRSNA JOB HOWMNY SELECT-REF11518 N-REF11519 T-REF11520 LDT-REF11521
       VL-REF11522 LDVL-REF11523 VR-REF11524 LDVR-REF11525 S-REF11526
       SEP-REF11527 MM-REF11528 M-REF11529 WORK-REF11530 LDWORK-REF11531
       IWORK-REF11532 INFO-REF11533))))

(CFFI:DEFCFUN ("dtrsyl_" %%DTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF11536 ':INT32) (M-REF11537 ':INT32)
                              (N-REF11538 ':INT32) (LDA-REF11540 ':INT32)
                              (LDB-REF11542 ':INT32) (LDC-REF11544 ':INT32)
                              (SCALE-REF11545 ':DOUBLE) (INFO-REF11546 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF11536 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11537 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11538 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11540 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11542 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11544 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11545 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11546 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11539 A) (B-REF11541 B)
                                            (C-REF11543 C))
      (%%DTRSYL TRANA TRANB ISGN-REF11536 M-REF11537 N-REF11538 A-REF11539
       LDA-REF11540 B-REF11541 LDB-REF11542 C-REF11543 LDC-REF11544
       SCALE-REF11545 INFO-REF11546))))

(CFFI:DEFCFUN ("dtrti2_" %%DTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11549 ':INT32) (LDA-REF11551 ':INT32)
                              (INFO-REF11552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11551 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11550 A))
      (%%DTRTI2 UPLO DIAG N-REF11549 A-REF11550 LDA-REF11551 INFO-REF11552))))

(CFFI:DEFCFUN ("dtrtri_" %%DTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11555 ':INT32) (LDA-REF11557 ':INT32)
                              (INFO-REF11558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11558 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11556 A))
      (%%DTRTRI UPLO DIAG N-REF11555 A-REF11556 LDA-REF11557 INFO-REF11558))))

(CFFI:DEFCFUN ("dtrtrs_" %%DTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11562 ':INT32) (NRHS-REF11563 ':INT32)
                              (LDA-REF11565 ':INT32) (LDB-REF11567 ':INT32)
                              (INFO-REF11568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11563 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11565 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11567 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11564 A) (B-REF11566 B))
      (%%DTRTRS UPLO TRANS DIAG N-REF11562 NRHS-REF11563 A-REF11564
       LDA-REF11565 B-REF11566 LDB-REF11567 INFO-REF11568))))

(CFFI:DEFCFUN ("dtrttf_" %%DTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11571 ':INT32) (LDA-REF11573 ':INT32)
                              (INFO-REF11575 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11571 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11573 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11575 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11572 A) (ARF-REF11574 ARF))
      (%%DTRTTF TRANSR UPLO N-REF11571 A-REF11572 LDA-REF11573 ARF-REF11574
       INFO-REF11575))))

(CFFI:DEFCFUN ("dtrttp_" %%DTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11577 ':INT32) (LDA-REF11579 ':INT32)
                              (INFO-REF11581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11577 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11579 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11578 A) (AP-REF11580 AP))
      (%%DTRTTP UPLO N-REF11577 A-REF11578 LDA-REF11579 AP-REF11580
       INFO-REF11581))))

(CFFI:DEFCFUN ("dtzrzf_" %%DTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11582 ':INT32) (N-REF11583 ':INT32)
                              (LDA-REF11585 ':INT32) (LWORK-REF11588 ':INT32)
                              (INFO-REF11589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11582 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11588 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11584 A) (TAU-REF11586 TAU)
                                            (WORK-REF11587 WORK))
      (%%DTZRZF M-REF11582 N-REF11583 A-REF11584 LDA-REF11585 TAU-REF11586
       WORK-REF11587 LWORK-REF11588 INFO-REF11589))))

(CFFI:DEFCFUN ("dzsum1_" %%DZSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZSUM1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11590 ':INT32) (INCX-REF11592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11590 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11592 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11591 CX))
      (%%DZSUM1 N-REF11590 CX-REF11591 INCX-REF11592))))

(CFFI:DEFCFUN ("icmax1_" %%ICMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ICMAX1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ICMAX1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11593 ':INT32) (INCX-REF11595 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11593 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11595 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11594 CX))
      (%%ICMAX1 N-REF11593 CX-REF11594 INCX-REF11595))))

(CFFI:DEFCFUN ("ieeeck_" %%IEEECK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (ZERO :POINTER)
  (ONE :POINTER))

(COMMON-LISP:DEFUN %IEEECK (ISPEC ZERO ONE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IEEECK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZERO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ONE))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11596 ':INT32) (ZERO-REF11597 ':FLOAT)
                              (ONE-REF11598 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11596 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZERO-REF11597 :FLOAT) ZERO)
    (COMMON-LISP:SETF (CFFI:MEM-REF ONE-REF11598 :FLOAT) ONE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%IEEECK ISPEC-REF11596 ZERO-REF11597 ONE-REF11598))))

(CFFI:DEFCFUN ("ilaclc_" %%ILACLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILACLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11599 ':INT32) (N-REF11600 ':INT32)
                              (LDA-REF11602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11599 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11600 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11602 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11601 A))
      (%%ILACLC M-REF11599 N-REF11600 A-REF11601 LDA-REF11602))))

(CFFI:DEFCFUN ("ilaclr_" %%ILACLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILACLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11603 ':INT32) (N-REF11604 ':INT32)
                              (LDA-REF11606 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11603 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11606 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11605 A))
      (%%ILACLR M-REF11603 N-REF11604 A-REF11605 LDA-REF11606))))

(CFFI:DEFCFUN ("iladiag_" %%ILADIAG :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (DIAG :STRING))

(COMMON-LISP:DEFUN %ILADIAG (DIAG)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILADIAG DIAG))))

(CFFI:DEFCFUN ("iladlc_" %%ILADLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILADLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11608 ':INT32) (N-REF11609 ':INT32)
                              (LDA-REF11611 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11608 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11609 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11611 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11610 A))
      (%%ILADLC M-REF11608 N-REF11609 A-REF11610 LDA-REF11611))))

(CFFI:DEFCFUN ("iladlr_" %%ILADLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILADLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11612 ':INT32) (N-REF11613 ':INT32)
                              (LDA-REF11615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11612 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11615 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11614 A))
      (%%ILADLR M-REF11612 N-REF11613 A-REF11614 LDA-REF11615))))

(CFFI:DEFCFUN ("ilaenv_" %%ILAENV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N1 :POINTER)
  (N2 :POINTER)
  (N3 :POINTER)
  (N4 :POINTER))

(COMMON-LISP:DEFUN %ILAENV (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11616 ':INT32) (N1-REF11619 ':INT32)
                              (N2-REF11620 ':INT32) (N3-REF11621 ':INT32)
                              (N4-REF11622 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11616 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11619 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11620 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11621 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11622 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV ISPEC-REF11616 NAME OPTS N1-REF11619 N2-REF11620 N3-REF11621
       N4-REF11622))))

(CFFI:DEFCFUN ("ilaenv2stage_" %%ILAENV2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N1 :POINTER)
  (N2 :POINTER)
  (N3 :POINTER)
  (N4 :POINTER))

(COMMON-LISP:DEFUN %ILAENV2STAGE (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11623 ':INT32) (N1-REF11626 ':INT32)
                              (N2-REF11627 ':INT32) (N3-REF11628 ':INT32)
                              (N4-REF11629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11623 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11626 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11627 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11628 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11629 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV2STAGE ISPEC-REF11623 NAME OPTS N1-REF11626 N2-REF11627
       N3-REF11628 N4-REF11629))))

(CFFI:DEFCFUN ("ilaprec_" %%ILAPREC :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (PREC :STRING))

(COMMON-LISP:DEFUN %ILAPREC (PREC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAPREC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PREC))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAPREC PREC))))

(CFFI:DEFCFUN ("ilaslc_" %%ILASLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILASLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILASLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11631 ':INT32) (N-REF11632 ':INT32)
                              (LDA-REF11634 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11631 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11632 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11634 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11633 A))
      (%%ILASLC M-REF11631 N-REF11632 A-REF11633 LDA-REF11634))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%DLASWP %DLASWP %%DLASY2 %DLASY2 %%DLASYF %DLASYF
  %%DLASYF_AA %DLASYF_AA %%DLASYF_RK %DLASYF_RK %%DLASYF_ROOK %DLASYF_ROOK
  %%DLAT2S %DLAT2S %%DLATBS %DLATBS %%DLATDF %DLATDF %%DLATPS %DLATPS %%DLATRD
  %DLATRD %%DLATRS %DLATRS %%DLATRZ %DLATRZ %%DLATSQR %DLATSQR %%DLAUU2 %DLAUU2
  %%DLAUUM %DLAUUM %%DOPGTR %DOPGTR %%DOPMTR %DOPMTR %%DORBDB %DORBDB %%DORBDB1
  %DORBDB1 %%DORBDB2 %DORBDB2 %%DORBDB3 %DORBDB3 %%DORBDB4 %DORBDB4 %%DORBDB5
  %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1
  %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2
  %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2
  %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORGTSQR %DORGTSQR %%DORHR_COL %DORHR_COL
  %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R %DORM2R %%DORMBR %DORMBR %%DORMHR
  %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ %%DORMQL %DORMQL %%DORMQR %DORMQR
  %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ %DORMRQ %%DORMRZ %DORMRZ %%DORMTR
  %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF
  %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS
  %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI %%DPFTRS %DPFTRS %%DPOCON %DPOCON
  %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB %%DPORFS %DPORFS %%DPORFSX %DPORFSX
  %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF
  %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON
  %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF
  %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF
  %%DPTCON %DPTCON %%DPTEQR %DPTEQR %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX
  %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL
  %%DSB2ST_KERNELS %DSB2ST_KERNELS %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE
  %%DSBEVD %DSBEVD %%DSBEVD_2STAGE %DSBEVD_2STAGE %%DSBEVX %DSBEVX
  %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST %DSBGST %%DSBGV %DSBGV %%DSBGVD
  %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD %%DSFRK %DSFRK %%DSGESV %DSGESV
  %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD %DSPEVD %%DSPEVX %DSPEVX %%DSPGST
  %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV
  %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF
  %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC
  %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR %DSTEMR %%DSTEQR %DSTEQR %%DSTERF
  %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX
  %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV
  %DSYCONV %%DSYCONVF %DSYCONVF %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB
  %DSYEQUB %%DSYEV %DSYEV %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD
  %%DSYEVD_2STAGE %DSYEVD_2STAGE %%DSYEVR %DSYEVR %%DSYEVR_2STAGE
  %DSYEVR_2STAGE %%DSYEVX %DSYEVX %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2
  %DSYGS2 %%DSYGST %DSYGST %%DSYGV %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD
  %DSYGVD %%DSYGVX %DSYGVX %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV
  %%DSYSV_AA %DSYSV_AA %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK
  %%DSYSV_ROOK %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR
  %DSYSWAPR %%DSYTD2 %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK
  %%DSYTF2_ROOK %DSYTF2_ROOK %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE
  %%DSYTRD_SY2SB %DSYTRD_SY2SB %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA
  %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK
  %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 %DSYTRI2 %%DSYTRI2X %DSYTRI2X
  %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X %%DSYTRI_ROOK %DSYTRI_ROOK
  %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 %DSYTRS_3 %%DSYTRS_AA
  %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE %%DSYTRS_ROOK %DSYTRS_ROOK
  %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS %%DTFSM %DTFSM %%DTFTRI
  %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC %DTGEVC %%DTGEX2 %DTGEX2
  %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA %%DTGSNA %DTGSNA %%DTGSY2
  %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT %DTPLQT %%DTPLQT2 %DTPLQT2
  %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT %DTPQRT %%DTPQRT2 %DTPQRT2
  %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI %%DTPTRS %DTPTRS %%DTPTTF
  %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC %DTREVC %%DTREVC3 %DTREVC3
  %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN %%DTRSNA %DTRSNA %%DTRSYL
  %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS %DTRTRS %%DTRTTF %DTRTTF
  %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 %%ICMAX1 %ICMAX1 %%IEEECK
  %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG %ILADIAG %%ILADLC %ILADLC
  %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE %ILAENV2STAGE %%ILAPREC
  %ILAPREC %%ILASLC %ILASLC))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP)
                                          ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2)
                                          ("DLASYF" "dlasyf_" %%DLASYF %DLASYF)
                                          ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA
                                           %DLASYF_AA)
                                          ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK
                                           %DLASYF_RK)
                                          ("DLASYF_ROOK" "dlasyf_rook_"
                                           %%DLASYF_ROOK %DLASYF_ROOK)
                                          ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S)
                                          ("DLATBS" "dlatbs_" %%DLATBS %DLATBS)
                                          ("DLATDF" "dlatdf_" %%DLATDF %DLATDF)
                                          ("DLATPS" "dlatps_" %%DLATPS %DLATPS)
                                          ("DLATRD" "dlatrd_" %%DLATRD %DLATRD)
                                          ("DLATRS" "dlatrs_" %%DLATRS %DLATRS)
                                          ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ)
                                          ("DLATSQR" "dlatsqr_" %%DLATSQR
                                           %DLATSQR)
                                          ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2)
                                          ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM)
                                          ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR)
                                          ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR)
                                          ("DORBDB" "dorbdb_" %%DORBDB %DORBDB)
                                          ("DORBDB1" "dorbdb1_" %%DORBDB1
                                           %DORBDB1)
                                          ("DORBDB2" "dorbdb2_" %%DORBDB2
                                           %DORBDB2)
                                          ("DORBDB3" "dorbdb3_" %%DORBDB3
                                           %DORBDB3)
                                          ("DORBDB4" "dorbdb4_" %%DORBDB4
                                           %DORBDB4)
                                          ("DORBDB5" "dorbdb5_" %%DORBDB5
                                           %DORBDB5)
                                          ("DORBDB6" "dorbdb6_" %%DORBDB6
                                           %DORBDB6)
                                          ("DORCSD" "dorcsd_" %%DORCSD %DORCSD)
                                          ("DORCSD2BY1" "dorcsd2by1_"
                                           %%DORCSD2BY1 %DORCSD2BY1)
                                          ("DORG2L" "dorg2l_" %%DORG2L %DORG2L)
                                          ("DORG2R" "dorg2r_" %%DORG2R %DORG2R)
                                          ("DORGBR" "dorgbr_" %%DORGBR %DORGBR)
                                          ("DORGHR" "dorghr_" %%DORGHR %DORGHR)
                                          ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2)
                                          ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ)
                                          ("DORGQL" "dorgql_" %%DORGQL %DORGQL)
                                          ("DORGQR" "dorgqr_" %%DORGQR %DORGQR)
                                          ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2)
                                          ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ)
                                          ("DORGTR" "dorgtr_" %%DORGTR %DORGTR)
                                          ("DORGTSQR" "dorgtsqr_" %%DORGTSQR
                                           %DORGTSQR)
                                          ("DORHR_COL" "dorhr_col_" %%DORHR_COL
                                           %DORHR_COL)
                                          ("DORM22" "dorm22_" %%DORM22 %DORM22)
                                          ("DORM2L" "dorm2l_" %%DORM2L %DORM2L)
                                          ("DORM2R" "dorm2r_" %%DORM2R %DORM2R)
                                          ("DORMBR" "dormbr_" %%DORMBR %DORMBR)
                                          ("DORMHR" "dormhr_" %%DORMHR %DORMHR)
                                          ("DORML2" "dorml2_" %%DORML2 %DORML2)
                                          ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ)
                                          ("DORMQL" "dormql_" %%DORMQL %DORMQL)
                                          ("DORMQR" "dormqr_" %%DORMQR %DORMQR)
                                          ("DORMR2" "dormr2_" %%DORMR2 %DORMR2)
                                          ("DORMR3" "dormr3_" %%DORMR3 %DORMR3)
                                          ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ)
                                          ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ)
                                          ("DORMTR" "dormtr_" %%DORMTR %DORMTR)
                                          ("DPBCON" "dpbcon_" %%DPBCON %DPBCON)
                                          ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU)
                                          ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS)
                                          ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF)
                                          ("DPBSV" "dpbsv_" %%DPBSV %DPBSV)
                                          ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX)
                                          ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2)
                                          ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF)
                                          ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS)
                                          ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF)
                                          ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI)
                                          ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS)
                                          ("DPOCON" "dpocon_" %%DPOCON %DPOCON)
                                          ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU)
                                          ("DPOEQUB" "dpoequb_" %%DPOEQUB
                                           %DPOEQUB)
                                          ("DPORFS" "dporfs_" %%DPORFS %DPORFS)
                                          ("DPORFSX" "dporfsx_" %%DPORFSX
                                           %DPORFSX)
                                          ("DPOSV" "dposv_" %%DPOSV %DPOSV)
                                          ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX)
                                          ("DPOSVXX" "dposvxx_" %%DPOSVXX
                                           %DPOSVXX)
                                          ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2)
                                          ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF)
                                          ("DPOTRF2" "dpotrf2_" %%DPOTRF2
                                           %DPOTRF2)
                                          ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI)
                                          ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS)
                                          ("DPPCON" "dppcon_" %%DPPCON %DPPCON)
                                          ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU)
                                          ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS)
                                          ("DPPSV" "dppsv_" %%DPPSV %DPPSV)
                                          ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX)
                                          ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF)
                                          ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI)
                                          ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS)
                                          ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2)
                                          ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF)
                                          ("DPTCON" "dptcon_" %%DPTCON %DPTCON)
                                          ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR)
                                          ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS)
                                          ("DPTSV" "dptsv_" %%DPTSV %DPTSV)
                                          ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX)
                                          ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF)
                                          ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS)
                                          ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2)
                                          ("DRSCL" "drscl_" %%DRSCL %DRSCL)
                                          ("DSB2ST_KERNELS" "dsb2st_kernels_"
                                           %%DSB2ST_KERNELS %DSB2ST_KERNELS)
                                          ("DSBEV" "dsbev_" %%DSBEV %DSBEV)
                                          ("DSBEV_2STAGE" "dsbev_2stage_"
                                           %%DSBEV_2STAGE %DSBEV_2STAGE)
                                          ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD)
                                          ("DSBEVD_2STAGE" "dsbevd_2stage_"
                                           %%DSBEVD_2STAGE %DSBEVD_2STAGE)
                                          ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX)
                                          ("DSBEVX_2STAGE" "dsbevx_2stage_"
                                           %%DSBEVX_2STAGE %DSBEVX_2STAGE)
                                          ("DSBGST" "dsbgst_" %%DSBGST %DSBGST)
                                          ("DSBGV" "dsbgv_" %%DSBGV %DSBGV)
                                          ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD)
                                          ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX)
                                          ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD)
                                          ("DSFRK" "dsfrk_" %%DSFRK %DSFRK)
                                          ("DSGESV" "dsgesv_" %%DSGESV %DSGESV)
                                          ("DSPCON" "dspcon_" %%DSPCON %DSPCON)
                                          ("DSPEV" "dspev_" %%DSPEV %DSPEV)
                                          ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD)
                                          ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX)
                                          ("DSPGST" "dspgst_" %%DSPGST %DSPGST)
                                          ("DSPGV" "dspgv_" %%DSPGV %DSPGV)
                                          ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD)
                                          ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX)
                                          ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV)
                                          ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS)
                                          ("DSPSV" "dspsv_" %%DSPSV %DSPSV)
                                          ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX)
                                          ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD)
                                          ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF)
                                          ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI)
                                          ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS)
                                          ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ)
                                          ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC)
                                          ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR)
                                          ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN)
                                          ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR)
                                          ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR)
                                          ("DSTERF" "dsterf_" %%DSTERF %DSTERF)
                                          ("DSTEV" "dstev_" %%DSTEV %DSTEV)
                                          ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD)
                                          ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR)
                                          ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX)
                                          ("DSYCON" "dsycon_" %%DSYCON %DSYCON)
                                          ("DSYCON_3" "dsycon_3_" %%DSYCON_3
                                           %DSYCON_3)
                                          ("DSYCON_ROOK" "dsycon_rook_"
                                           %%DSYCON_ROOK %DSYCON_ROOK)
                                          ("DSYCONV" "dsyconv_" %%DSYCONV
                                           %DSYCONV)
                                          ("DSYCONVF" "dsyconvf_" %%DSYCONVF
                                           %DSYCONVF)
                                          ("DSYCONVF_ROOK" "dsyconvf_rook_"
                                           %%DSYCONVF_ROOK %DSYCONVF_ROOK)
                                          ("DSYEQUB" "dsyequb_" %%DSYEQUB
                                           %DSYEQUB)
                                          ("DSYEV" "dsyev_" %%DSYEV %DSYEV)
                                          ("DSYEV_2STAGE" "dsyev_2stage_"
                                           %%DSYEV_2STAGE %DSYEV_2STAGE)
                                          ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD)
                                          ("DSYEVD_2STAGE" "dsyevd_2stage_"
                                           %%DSYEVD_2STAGE %DSYEVD_2STAGE)
                                          ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR)
                                          ("DSYEVR_2STAGE" "dsyevr_2stage_"
                                           %%DSYEVR_2STAGE %DSYEVR_2STAGE)
                                          ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX)
                                          ("DSYEVX_2STAGE" "dsyevx_2stage_"
                                           %%DSYEVX_2STAGE %DSYEVX_2STAGE)
                                          ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2)
                                          ("DSYGST" "dsygst_" %%DSYGST %DSYGST)
                                          ("DSYGV" "dsygv_" %%DSYGV %DSYGV)
                                          ("DSYGV_2STAGE" "dsygv_2stage_"
                                           %%DSYGV_2STAGE %DSYGV_2STAGE)
                                          ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD)
                                          ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX)
                                          ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS)
                                          ("DSYRFSX" "dsyrfsx_" %%DSYRFSX
                                           %DSYRFSX)
                                          ("DSYSV" "dsysv_" %%DSYSV %DSYSV)
                                          ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA
                                           %DSYSV_AA)
                                          ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_"
                                           %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE)
                                          ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK
                                           %DSYSV_RK)
                                          ("DSYSV_ROOK" "dsysv_rook_"
                                           %%DSYSV_ROOK %DSYSV_ROOK)
                                          ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX)
                                          ("DSYSVXX" "dsysvxx_" %%DSYSVXX
                                           %DSYSVXX)
                                          ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR
                                           %DSYSWAPR)
                                          ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2)
                                          ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2)
                                          ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK
                                           %DSYTF2_RK)
                                          ("DSYTF2_ROOK" "dsytf2_rook_"
                                           %%DSYTF2_ROOK %DSYTF2_ROOK)
                                          ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD)
                                          ("DSYTRD_2STAGE" "dsytrd_2stage_"
                                           %%DSYTRD_2STAGE %DSYTRD_2STAGE)
                                          ("DSYTRD_SY2SB" "dsytrd_sy2sb_"
                                           %%DSYTRD_SY2SB %DSYTRD_SY2SB)
                                          ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF)
                                          ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA
                                           %DSYTRF_AA)
                                          ("DSYTRF_AA_2STAGE"
                                           "dsytrf_aa_2stage_"
                                           %%DSYTRF_AA_2STAGE
                                           %DSYTRF_AA_2STAGE)
                                          ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK
                                           %DSYTRF_RK)
                                          ("DSYTRF_ROOK" "dsytrf_rook_"
                                           %%DSYTRF_ROOK %DSYTRF_ROOK)
                                          ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI)
                                          ("DSYTRI2" "dsytri2_" %%DSYTRI2
                                           %DSYTRI2)
                                          ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X
                                           %DSYTRI2X)
                                          ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3
                                           %DSYTRI_3)
                                          ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X
                                           %DSYTRI_3X)
                                          ("DSYTRI_ROOK" "dsytri_rook_"
                                           %%DSYTRI_ROOK %DSYTRI_ROOK)
                                          ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS)
                                          ("DSYTRS2" "dsytrs2_" %%DSYTRS2
                                           %DSYTRS2)
                                          ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3
                                           %DSYTRS_3)
                                          ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA
                                           %DSYTRS_AA)
                                          ("DSYTRS_AA_2STAGE"
                                           "dsytrs_aa_2stage_"
                                           %%DSYTRS_AA_2STAGE
                                           %DSYTRS_AA_2STAGE)
                                          ("DSYTRS_ROOK" "dsytrs_rook_"
                                           %%DSYTRS_ROOK %DSYTRS_ROOK)
                                          ("DTBCON" "dtbcon_" %%DTBCON %DTBCON)
                                          ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS)
                                          ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS)
                                          ("DTFSM" "dtfsm_" %%DTFSM %DTFSM)
                                          ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI)
                                          ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP)
                                          ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR)
                                          ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC)
                                          ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2)
                                          ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC)
                                          ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN)
                                          ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA)
                                          ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA)
                                          ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2)
                                          ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL)
                                          ("DTPCON" "dtpcon_" %%DTPCON %DTPCON)
                                          ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT)
                                          ("DTPLQT2" "dtplqt2_" %%DTPLQT2
                                           %DTPLQT2)
                                          ("DTPMLQT" "dtpmlqt_" %%DTPMLQT
                                           %DTPMLQT)
                                          ("DTPMQRT" "dtpmqrt_" %%DTPMQRT
                                           %DTPMQRT)
                                          ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT)
                                          ("DTPQRT2" "dtpqrt2_" %%DTPQRT2
                                           %DTPQRT2)
                                          ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB)
                                          ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS)
                                          ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI)
                                          ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS)
                                          ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF)
                                          ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR)
                                          ("DTRCON" "dtrcon_" %%DTRCON %DTRCON)
                                          ("DTREVC" "dtrevc_" %%DTREVC %DTREVC)
                                          ("DTREVC3" "dtrevc3_" %%DTREVC3
                                           %DTREVC3)
                                          ("DTREXC" "dtrexc_" %%DTREXC %DTREXC)
                                          ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS)
                                          ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN)
                                          ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA)
                                          ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL)
                                          ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2)
                                          ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI)
                                          ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS)
                                          ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF)
                                          ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP)
                                          ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF)
                                          ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1)
                                          ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1)
                                          ("IEEECK" "ieeeck_" %%IEEECK %IEEECK)
                                          ("ILACLC" "ilaclc_" %%ILACLC %ILACLC)
                                          ("ILACLR" "ilaclr_" %%ILACLR %ILACLR)
                                          ("ILADIAG" "iladiag_" %%ILADIAG
                                           %ILADIAG)
                                          ("ILADLC" "iladlc_" %%ILADLC %ILADLC)
                                          ("ILADLR" "iladlr_" %%ILADLR %ILADLR)
                                          ("ILAENV" "ilaenv_" %%ILAENV %ILAENV)
                                          ("ILAENV2STAGE" "ilaenv2stage_"
                                           %%ILAENV2STAGE %ILAENV2STAGE)
                                          ("ILAPREC" "ilaprec_" %%ILAPREC
                                           %ILAPREC)
                                          ("ILASLC" "ilaslc_" %%ILASLC
                                           %ILASLC)))

(COMMON-LISP:EXPORT
 '(%DLASWP %DLASY2 %DLASYF %DLASYF_AA %DLASYF_RK %DLASYF_ROOK %DLAT2S %DLATBS
   %DLATDF %DLATPS %DLATRD %DLATRS %DLATRZ %DLATSQR %DLAUU2 %DLAUUM %DOPGTR
   %DOPMTR %DORBDB %DORBDB1 %DORBDB2 %DORBDB3 %DORBDB4 %DORBDB5 %DORBDB6
   %DORCSD %DORCSD2BY1 %DORG2L %DORG2R %DORGBR %DORGHR %DORGL2 %DORGLQ %DORGQL
   %DORGQR %DORGR2 %DORGRQ %DORGTR %DORGTSQR %DORHR_COL %DORM22 %DORM2L %DORM2R
   %DORMBR %DORMHR %DORML2 %DORMLQ %DORMQL %DORMQR %DORMR2 %DORMR3 %DORMRQ
   %DORMRZ %DORMTR %DPBCON %DPBEQU %DPBRFS %DPBSTF %DPBSV %DPBSVX %DPBTF2
   %DPBTRF %DPBTRS %DPFTRF %DPFTRI %DPFTRS %DPOCON %DPOEQU %DPOEQUB %DPORFS
   %DPORFSX %DPOSV %DPOSVX %DPOSVXX %DPOTF2 %DPOTRF %DPOTRF2 %DPOTRI %DPOTRS
   %DPPCON %DPPEQU %DPPRFS %DPPSV %DPPSVX %DPPTRF %DPPTRI %DPPTRS %DPSTF2
   %DPSTRF %DPTCON %DPTEQR %DPTRFS %DPTSV %DPTSVX %DPTTRF %DPTTRS %DPTTS2
   %DRSCL %DSB2ST_KERNELS %DSBEV %DSBEV_2STAGE %DSBEVD %DSBEVD_2STAGE %DSBEVX
   %DSBEVX_2STAGE %DSBGST %DSBGV %DSBGVD %DSBGVX %DSBTRD %DSFRK %DSGESV %DSPCON
   %DSPEV %DSPEVD %DSPEVX %DSPGST %DSPGV %DSPGVD %DSPGVX %DSPOSV %DSPRFS %DSPSV
   %DSPSVX %DSPTRD %DSPTRF %DSPTRI %DSPTRS %DSTEBZ %DSTEDC %DSTEGR %DSTEIN
   %DSTEMR %DSTEQR %DSTERF %DSTEV %DSTEVD %DSTEVR %DSTEVX %DSYCON %DSYCON_3
   %DSYCON_ROOK %DSYCONV %DSYCONVF %DSYCONVF_ROOK %DSYEQUB %DSYEV %DSYEV_2STAGE
   %DSYEVD %DSYEVD_2STAGE %DSYEVR %DSYEVR_2STAGE %DSYEVX %DSYEVX_2STAGE %DSYGS2
   %DSYGST %DSYGV %DSYGV_2STAGE %DSYGVD %DSYGVX %DSYRFS %DSYRFSX %DSYSV
   %DSYSV_AA %DSYSV_AA_2STAGE %DSYSV_RK %DSYSV_ROOK %DSYSVX %DSYSVXX %DSYSWAPR
   %DSYTD2 %DSYTF2 %DSYTF2_RK %DSYTF2_ROOK %DSYTRD %DSYTRD_2STAGE %DSYTRD_SY2SB
   %DSYTRF %DSYTRF_AA %DSYTRF_AA_2STAGE %DSYTRF_RK %DSYTRF_ROOK %DSYTRI
   %DSYTRI2 %DSYTRI2X %DSYTRI_3 %DSYTRI_3X %DSYTRI_ROOK %DSYTRS %DSYTRS2
   %DSYTRS_3 %DSYTRS_AA %DSYTRS_AA_2STAGE %DSYTRS_ROOK %DTBCON %DTBRFS %DTBTRS
   %DTFSM %DTFTRI %DTFTTP %DTFTTR %DTGEVC %DTGEX2 %DTGEXC %DTGSEN %DTGSJA
   %DTGSNA %DTGSY2 %DTGSYL %DTPCON %DTPLQT %DTPLQT2 %DTPMLQT %DTPMQRT %DTPQRT
   %DTPQRT2 %DTPRFB %DTPRFS %DTPTRI %DTPTRS %DTPTTF %DTPTTR %DTRCON %DTREVC
   %DTREVC3 %DTREXC %DTRRFS %DTRSEN %DTRSNA %DTRSYL %DTRTI2 %DTRTRI %DTRTRS
   %DTRTTF %DTRTTP %DTZRZF %DZSUM1 %ICMAX1 %IEEECK %ILACLC %ILACLR %ILADIAG
   %ILADLC %ILADLR %ILAENV %ILAENV2STAGE %ILAPREC %ILASLC)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
